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- LEICHT VERSTÄNDLICH 


Der DRAGON 32 ist ein lebender Beweis dafür, daß 
man kein Experte in „Computer-Chinesisch” sein 
muß, um ein Computer-Fachmann zu werden. Zu- 
sammen mit ihm erhalten Sie eines der am einfach- 
sten zu verstehenden Programmierhandbücher für 
BER EURTICHCHRAHEIGCHHUGHTE TEE 
sprache der Welt) das je für einen Heimcomputer 
geschrieben wurde. 

Jeder Schritt, jede Erläuterung ist auch für Anfänger 
leicht verständlich. In wenigen Minuten können Sie 
bereits ein einfaches Programm schreiben, in weni- 
gen Stunden werden Sie fasziniert sein von den 
Möglichkeiten, die sich Ihnen bieten. 

Im Kurs-Handbuch sind 60 Programme eingebaut, 
die Ihnen eine neue Welt erschließen - mit Hilfe des 
vielseitigen und leistungsstarken DRAGON 32. 


- SOFORT EINSATZBEREIT 


Sie müssen nicht gleich mit dem Programmieren 
anfangen. Es gibt ein ständig wachsende Anzahl 
fertiger Programme auf normalen Rekorder-Kasset- 
HET ESCHE TR EL RSTH ICH EICH 0 
gramme schreiben, können diese bequem auf nor- 
WEISDERSSH RESET TERN 

Dazu einfach Ihren Kassettenrecorder mit dem 
DRAGON 32 verbinden und mit jeweils einem einzi- 
PB BSHEICHESEWATEHT WAGEN WIENER 
schen Möglichkeiten eines Familien-Computers! 


- BRINGT FARBE INS PROGRAMM 


Neun Farben bringen Leben auf den Bildschirm. 
DIEEIEOSSESCHHESENGEWIGTTENUESERUE 


Microsoft Extended Colour Basic ermöglicht es, mit 
einfachen Befehlen Vorder-und Hintergrundfarben 
zu bestimmen, einen einzelnen Farbtupfer auf den 
Bildschirm zu bringen oder auch die ganze Fläche 
EIKE 


- EIN GRAFIKER 


LAUTE EICHSEISCHESHB]7Telo VERPASST 
einfach zu handhabenden, erstaunlichen Grafik-Fä- 
higkeiten: 8 Grafik-Bildschirmseiten, 5 verschiede- 
ne Auflösungsgrade von 512 Textstellen (16x32) 
bis zu 49152 Bildschirmpunkten (192x256). Mit 
einfachen Grafik-Befehlen können Sie Linien, 
Rechtecke, Quadrate, Bögen, Ellipsen oder Kreis 
zeichnen; oder Sie entwerfen eine Gestalt und än- 
dern dann deren Maßstab von 1/4 ihrer Größe auf 
15fache Vergrößerung! Die Grafik läßt sich zusätz- 
lich auch noch über vier rechtwinklige Positionen 
drehen. 


- IST MUSIKALISCH 


Volle 5 Oktaven stehen Ihnen für Musik und Sprach- 
synthese zur Verfügung. Melodien sind leicht zu 
programmieren und Klangeffekte beleben die Hand- 
lung in Programmen. 

Natürlich können Sie mit dem DRAGON 32 auch 
komponieren: Sie geben Noten, Vorzeichen, Tempi 
etc ein - der Computer spielt Ihnen das komponierte 
Lied vor. 


- FLEXIBEL UND LEICHT ZU BEDIENEN 


Die Programmiersprache Microsoft Extended Co- 
lour Basic bietet dem Programmierer unzählige Ge- 


Funktion 

Elfe tar 
jeder Taste fü 
20 Millione: 
Anschläg 


staltungsmöglichkeiten. Ein komfortabler Zeilene- 
ditor gestattet zügiges Korrigieren von Program- 
men. 


- EIN ANPASSUNGSFÄHIGER COMPUTER 


Das Design des DRAGON 32 ist so ansprechend, 
daß er sich überall sehen lassen kann. Aufgrund 
seiner hervorragenden Fähigkeiten kann er auch in 
der Schule oder im Büro eingesetzt werden. Der 
DT NE N RPZSCH SIEHT AGE SCHUNG ES HE EEG 
gen Welt der Microcomputer Schritt halten. 


- EIN QUALITÄTSERZEUGNIS 


Der DRAGON 32 besitzt eine professionelle Schreib- 
maschinentastatur, über die Sie die Programme, 
Spiele und Befehle an den Computer eingeben. Die 
LESEN UNE SENIGRCHLIEINERST 
oft eine Schwachstelle - ist für starke Beanspru- 
chung ausgelegt. Die Funktionssicherheit jeder Ta- 
BCHTESEI REES RR N TTTENWNSEERTR 
Mit den Zeilen-Editor bietet der DRAGON 32 die 
Möglichkeit, Programme besonders schnell und 
leicht zu schreiben. 


- VIELSEITIG UND AUSBAUFÄHIG 


Der DRAGON 32 besitzt serienmäßig Anschlüsse für 
NELWATREUGTIEICHATUWNTSETGESESTEICHEN 

@ 2 Eingänge für Joysticks (Spielhebel), ideal für 
viele Spiele. 

©® Anschlußbuchse für handelsüblichen Kasset- 
tenrekorder zum Speichern Ihrer Programme auf 
LEID ERSEUCHBSTETTBTG TO ESCHE enteteltten 
die unmittelbar und schnell gelesen werden. 












ZEN ESESESICHERUN EN SE TERENKENTES 
Druckers, damit Sie Programme, Listen usw. druk- 
ken können. 

@ Farbfernsehausgang und zusätzlicher Monitor- 
AUESETTRGESHIORNRIEIGHEIGN KLGIKGEIE 
LES STE rl EHRIOEBENW GLEN 


- WÄCHST MIT IHREN ANSPRÜCHEN 


© Sie können die Speicherkapazität (RAM) Ihres 
DRAGON 32 auf 64 K erweitern lassen. 

© In Kürze kommt das DRAGON-Floppy-Disk-Sy- 
stem mit Steuermodul und bis zu zwei Disketten- 
[EINNTSCHR 

BEREITS HENTESETSISCHAGERH 
nen die Wahl folgender Erweiterungen gibt: 
EHE SAUCHESTSCHEREUSICHEREEREESCH SE 
moduls) 

- RS 232-Schnittstelle für Netzwerke 

- Zusätzlicher 8-Bit-Microprozessor zur Nutzung 
einer Vielzahl von Programmen für Beruf und Be- 
trieb. 


- SEINE PROGRAMME (SOFTWARE) 


VEEEETENESCHEENUTESEETE NT 
sind als fertige Programme für den DRAGON 32 er- 
hältlich. Von Schach über Kämpfe mit Geistern bis 
hin zu fesselnden Abenteuern. Die ganze Familie 
kann spielend die Computerwelt entdecken und mit 
sinnvollen Programmen, wie Budget, Adressen, 
persönliche Finanzen und anderen Programmen al- 
le Möglichkeiten moderner Computertechnologie 
ohne viel Schwierigkeiten nutzen. Die leicht ver- 
ständlich geschriebenen Anleitungen machen den 


Einstieg in die „Computerei” kinderleicht. 


- EIN EUROPÄISCHER COMPUTER 


Der DRAGON 32 wurde in Swansea, im Westen 
Großbritanniens von einem Fach-Team für Compu- 
terforschung von DRAGON Data Ltd. entwickelt. Die 
ganze Erfahrung jahrzehntelanger Entwicklungs- 
und Produktionstätigkeit steht hinter dem DRAGON 
32 und stellt dadurch seine kontinuierliche Weiter- 
entwicklung sicher. 


TECHNISCHE EINZELHEITEN 


@ Hochmoderner Microprozessor 6809E 

© Serienmäßiger Anwenderspeicher (RAM) 32K, 
erweiterbar auf 64K. Noch 26K frei verfügbar bei 4 
BEICHRIEISL EEG 

@ Serienmäßig die erweiterte Basic-Version: „Mic- 
rosoft Extended Colour Basic” (Microsoft Basic ist 
die gebräuchlichste Basic-Version der Welt). 

DIE VORZÜGE: 

- hochentwickelte Grafikbefehle wie SET, LINE, 
DRAW, CIRCLE, PAINT 

- komfortable Ausgabe mit PRINT&, PRINT USING 
- umfassende Ton- und Geräuscherzeugung mit 
SOUND, PLAY 

SEN OH EUSSI USCHI ERBE EHE GE 
ders 

- volle Edit-Funktion mit Insert, Delete, Change, 
usw. 

@ BILDSCHIRM-AUSGABE: 

- 9 Farben 

- 5 verschiedene Auflösungsgrade von 512 Text- 
stellen (16x32) bis 49152 Bildschirmpunkten 


Ansprechendes 
flaches Design 


Reset-Knopf 


Joystick/Spielhebel- 
Anschlüsse 


Centronics- 
Druckeranschluß 











Buchse für 
Kassettenrekorder 


Anschluß für 
Fernseher (UHF) 


Netzgerät-Eingang 


Ein/Aus-Schalter 


Anschluß für 
Farbmonitor 


(192x256) bei hoher Auflösung 

- Heimfernsehgerät (UHF) und/oder Farbmonitor 
© TASTATUR 

-Tastatur in professioneller Qualität und Norm, wie 
sie EDV-Eingabeterminals verwendet wird 

- weicher, angenehmer Anschlag 

- hoher Schreibkomfort 

- Funktionssicherheit jeder Taste für 20 Millionen 
LUBUERTZ 

@ EINFACHE STECKANSCHLÜSSE FÜR: 
- 2 Joysticks/Spielhebel 

- handelsüblichen Kassettenrekorder 
BIELC)] 

- Drucker (Centronics-Parallel) 

- Steckmodule 

® 190-seitiges „Basic-Programmierhandbuch” 
und Anleitung im Preis enthalten. 
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Ihr DRAGON 32 kostet nur 998,- DM 
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Liebe Homecomputer-Leserin, 
Lieber Homecomputer-Leser, 


In diesem Heft haben wir wieder mehr als 20 
Programme für die populärsten Micro-Com- 
puter abgedruckt. 

Dabei kommen News und Reviews wieder 
einmal etwas zu kurz, denn mehr als 60 Seiten 
Redaktionsteil stehen uns zur Zeit nicht zur 
Verfügung (dies ist eine Frage der Anzahl der 
Werbeseiten im Heft: mehr Werbung - mehr 
Redaktionsteil). 


Aus Ihren Briefen wissen wir, daß sich die- 
jenigen, die mehr Informationen und weniger 
Software wünschen (diese Leser haben in der 
Mehrzahl noch keinen Computer) und dieje- 
nigen, die das Software-Übergewicht wün- 
schen so ziemlich die Waage halten (siehe 
Titelbild CPU: so war es bisher!). 


Wir wollten beide Gruppen zufriedenstellen 
und so entstand 


”Computer, programmiert zur Unterhaltung” 


Darin werden sich auch jeden Monat eine 
große Anzahl Programme befinden, aber bei 
CPU liegt der Schwerpunkt auf Informatio- 





nen und Tips zu den einzelnen Homecompu- 
tern. 

CPU wird immer in der Monatsmitte er- 
scheinen und Homecomputer hat nach der 
Angleichung in diesem Monat ab sofort wie- 
der den Erstausgabetag am letzten Montag 
eines Monats für den Folgemonat. 
Natürlich wünschen wir uns, daß viele Home- 
computer-Leser auch CPU-Leser werden. 
Deshalb schauen Sie doch zum 18. August 
mal bei Ihrem Zeitschriftenhändler vorbei 
und sehen Sie in die neue CPU hinein. 

Wir alle würden uns freuen, wenn Sie Ge- 
fallen an diesem neuen Computer-Magazin 
finden würden. 


Herzlichst 


je (220 


Ihr Ralph Roeske 
Herausgeber und Chefredakteur 
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Homecomputer bringt in diesem Monat: 
Top Twenty 5 
News & Reviews 

Tandy TRS-80 


Grafik Program 
Pferderennen 


Commodore 64 
Energie 

Telefon/Adressdatei 
Charaktergenerator 

Grips 


Texas 99 


Der Pilzwurm 
Frogpath 
Flugabwehrgeschütz 
Monster Hunt 


Apple Kiste 
Imbißbude 
Carace 


Sinclair ZX-81 
ZX Bundesliga 
Nimm 


Sinclair ZX Spectrum 
Spectraxians 
Kreisstatistik 


VC-20 


Helikopter 
Crown Jubilee 
Geisterschloß 


Sharp MZ 80 
Roadrunner 


Data Generator 


Kleinanzeigen 


Kassetten Service 











Bewegliche Apple 


Apples,die man mit ins Grüne nehmen kann; die Voraussetzung 
schafft die Firma Automation & Power Systems. Für £ 322 (ca. 
1300,-DM),soviel kostet die APS-10.040-Stromversorgungs- 
einheit. Mit ihr kann man den Apple an der 12 Volt Batterie des 
Autos betreiben. Im Heim sorgt sie dafür, daß im Falle von 
Stromausfall kein Datenverlust eintritt. 


3-Inch-Disk 
für Commodore 


In Kürze sollen für die Commodore Micro Computer Serien 3inch 
Disk Drives zu er-halten sein. 

Die Firma Automation und Power Systems gab der Presse 
bekannt, daß Sie eine 3 inch Doppelfloppy für ca. £ 400 (ca. 
1600,-DM) auf den Markt bringen werden. Die Einheit wird ohne 
Umrüstung für den CBM 8032, VC-20, Commodore-64 und die 
700er Serie anschlußfertig ausgeliefert werden. 

Sowohl PET-DOS als auch CP/M sind in der Grundausstattung 
vorgesehen. Die Micro-floppy befinden sich in einemPlastikge- 
häu-se, daß sich automatisch schließt, wenn sie aus der 
Diskstation genommen werden. Diese Methode soll Staubabla- 
gerungen auf dem Material verhindern; ist also vielfach sicherer 
als die 5 Ya und 8 Zoll Floppies. Die Kapazität einer Diskette: 
250KByte pro Seite bei Doppeldichte und 125K bei einfacher 
Dichte. 

APS ist zuversichtlich, daß die Laufwerke ab September zu 
erhalten sein werden. 


August 1983 





NEWS & REVIEWS 





Homecomputer Top Twenty 


l. Der Fluch des Pharao VC-20 Wicosoft 
2. Multisound Synthesizer VC-20 Romik 
3. Pimania ZX-81 Automata 
4. Pimania ZX Spectrum Automata 


C 64 Terminal Software 
ZX Spectrum Automata 
ZX 81 Bug Byte 
VC-20 Bug Byte 
Terminal Software 


5. Superskramble 
6. Spectacula 

7. Invaders 

8. Chess 


9. Skramble VC-20 


10. Moons of Jupiter VC20 Romik 
ll. Best possible Taste ZX-81 Automata 
12. Spectral Invaders ZX Spectrum Bug Byte 


13. Martian Raider 
14. Scramble 
15. Tarzan 

16. Penetrator 
17. Superfont 


VC-20 Romik 

VC-20 Bug Byte 

ZX Spectrum Wicosoft 
ZX Spectrum Melbourne House 
Commodore 64 English Software 
18. PSSST ZX Spectrum Ultimate 
19. The Hobbit ZX Spectrum Melbourne House 
20. Enter the Dragon A Dragon Melbourne House 


5 Softwarehändler in Deutschland, Österreich und der 
Schweiz geben uns von nun an monatlich ihre Ver- 
kaufsziffern von Software-Kassetten, -Disketten und - 
Cardridgemodulen bekannt. Daraus erstellt Home- 
computer jeweils die "Software-Hitparade” des Monats. 
Es ist sicher sowohl für den Leser, als auch für den 
Software-Händler, aber auch für Software-Autoren und 
für uns von großem Interesse, welcher Typ von Pro- 
gramm am meisten Anhänger findet. 

Aus diesem Grund haben wir uns nach langem Disku- 
tieren für die Hitparade ausgesprochen. 

Um ein möglichst genaues Bild zu erhalten, hoffen wir, 
daß im Laufe der Zeit weitere Händler mit ihren 
Statistiken diese Liste noch repräsentativer gestalten 
werden. 


Homecomputer 5 





Enter The Dragon 


von Colin Carter 
30 prima Programme für den Dragon veröffentlichte 
unlängst die Firma Melbourne House (Publishers) Ltd 
sowohl als Buch, als auch auf 2 Cassetten. 


Programme aus allen Bereichen, u.a. auch aus den Berei- 
chen Ausbildung, Mathematik, sowie natürlich Strategie-, 
Action-, Arcade- und Kartenspiele. 


Alle Programme werden im gleichen Stil vorgestellt. Nach 
dem Abdruck des Titels kommt ein Bildschirmfoto, das in 
irgendeiner Form zum Programm paßt. 


Danach wird in groben Zügen ein Programm in seiner 
Struktur erklärt und eine Variablenliste, die sich an- 
schließt,rundet das Programm ab. 


Enter the Dragon ist sicher weit mehr wert, als der Preis, 
der in Deutschland bei ca. 25,-DM liegt. Und weil das 
Abtippen langer Programme recht langwierig ist, sind 
auch die Cassetten durchaus zu empfehlen. 





Dragon Sprites 


Premier Micro Systems hat ein Graphiksystem für den 
Dragon entwickelt. Bei dieser Hardware- und Software- 
Kombination handelt es sich um ein Cardridge-Modul, 
das in den entsprechenden Slot des Dragon 32 gesteckt 
wird. 

Unter Verwendung eines TI 99/26 Video Chips und 16K 
zusätzliches RAM erhält der Dragon eine Graphik- 
auflösung von 192 x 256 Punkten in 16 Farben und 32 
bewegliche Sprites in der Größe von je4x 4 Zeichen (= 
36 X 36 Punkten). 

Außerdem plant Premier Micro Systems die Herausga- 
be eines sechsstimmigen Musiksystems für den Dragon 
32, von dem wir hoffen, es in Kürze vorstellen zu 
können. 


SPRITE 
MAKER 
64 


 CASSETTE 


Spritemaker 64 


für Commodore 64 
English Software, Manchester 


Ein weiteres Hilfsprogramm für Commodore-64-Besit- 
zer aus dem Hause English Software, eine der noch 
relativ wenigen Software-Hersteller, die sich ausgiebig 
mit diesem Computer beschäftigen. 

Mit dem Spritemaker können mehrfarbige Sprites 
erstellt werden, die dann in eigenen Programmen einge- 
setzt werden können. Diese Art der Highresolution- 
grafik ist eine der besten Eigenschaften des C-64, kann 
aber leider, weil kein ausführliches Handbuch mitgelie- 
fert wird, nur von Profis, nicht aber vom Anwender, den 
der Computer am meisten anspricht, eingesetzt werden. 
Der Spritemaker ändert diesen Umstand. Wie, das ist 
alles sehr schön in der beigefügten Erläuterung erklärt. 
Ähnlich wie beim Zeichengenerator Superfont werden 
die Sprites in vergrößerter Form in einer Matrix darge- 
stellt. Die X-Koordinate besteht aus 24, die Y-Koordi- 
nate aus 21 Punkten. 

Mit den Cursortasten kann jeder beliebige Punkt des 





Kal; 
COMMODORE 64 


SUPERFONT 
4.0 


Superfont 4.0 Commodore 64 


Mit Superfont 4.0 haben alle Freunde des CBM 64 jetzt 
die Gelegenheit, die grafischen und farblichen Mög- 
lichkeiten ihres Gerätes nach ihren eigenen Bedürf- 
nissen selbst zu gestalten. 

So können zum Beispiel Schriftzeichen einer fremden 
Sprache kreiert werden und Symbole oder sonstige 
Zeichen, die man für ein bestimmtes Programm benö- 
tigt. 

Selbstverständlich bietet das Programm die Möglich- 
keit, die neu erstellten Zeichen auf einer Kassette oder 
Diskette abzuspeichern, um sie für eine Verwendungin 
eigenen Programmen jederzeit einsetzen zu können. 
Entsprechende Programmbeispiele werden vom Her- 
steller (English Software) in der Beschreibung, die 
gerade genug an Informationen bietet, mitgeliefert. 
Auf einer vergrößerten 8x8-Matrix kann man das zu 
verändernde Zeichen einblenden und mittels der Cur- 
sortasten nach seinen Wünschen verändern odr ganz 
neu erstellen. 

Eine Reihe von Funktionen ist über verschiedene 
Tasten möglich. Insgesamt gibt es 22 verschiedene 
Modalitäten, von denen wir hier nur einige aufzählen 
möchten. 

Vorhandenes Zeichen zeigen 

Vorhandenes Zeichen löschen 

Zeichen bewegen 

Clear Block 

Zeichen übertragen 

Farben verändern 

Reverse 

Load Save 

Für alle, die mit dem Commodore 64 kreativ arbeiten 
wollen (wer will das nicht) sicherlich ein nützliches 
Hilfsmittel. Die Beherrschung des Programms erfor- 
dert einige Übung. Trotz der leider wie bei vielen 
Hilfsprogrammen etwas knappen Beschreibung ein 
empfehlenswertes Programm, zumal Software für die- 
sen Computer hierzulande noch dünn gesät ist. 





EMPIRE Dragon 32 


Empire heißt ein Spiel, bei dem es um die Beherr- 
schung der Welt geht. Der Spieler muß sich gegen das 
Dragon Imperium verteidigen. 

In 39 Gebiete ist diese Welt unterteilt. Der Spieler sucht 
sich 13 Territorien seiner Wahl aus und beschickt sie 
mit Armeen (erinnert ziemlich an das bekannte Brett- 
spiel-Risiko). Der Computer tut das gleiche. 

Dann beginnt das Spiel, wobei jeder versucht, seinen 
Einflußbereich zu vergrößern. 

Das Spiel ist vollständig in Maschinensprache ge- 
schrieben und macht ausgiebig Gebrauch von der High 
Resolution Graphik. 

Der Preis von ca. 30,-DM ist durchaus vertretbar, denn 
man erhält ein interessantes, spannendes Spiel. 





Oracle zx-sı 


Peacock Software hat offensichtlich einen Markt ent- 
deckt, den niemand vorher belieferte - den Computer 
als Zukunftsdeuter zu benutzen. 

Oracle, ein ZX-81-Programm tut dies besonders viel- 
versprechend. 

Für ca. 25,-DM ein Partyspaß, der sich lohnt! 


Hloneconputer 


EI, 
E * 


Aus Remissionsbeständen z. Zt. noch lieferbar solange 
Vorrat reicht 


Homecomputer 3/83 : 4/83 : 5/83 : 6/83 


Nachbestellungen: 
ROESKE VERLAG - Postfach 629 : 3440 Eschwege 


Lieferung nur gegen Scheck je Heft 5,50 DM + Porto 
Porto Verpackungsanteil: 1 Heft 1,- DM 
2-4 Hefte 2,- DM 
über 4 Hefte 3,- DM 





Grafik 


für TRS80/M1 mit Drucker 


Dieses Programm ist für Level 2 Maschinen geschrie- 
ben. Es kann aber sicher auch auf anderen Rechnern 
gefahren werden. Es wird hierbei extra nicht mit 
Maschinensprache gearbeitet, was auf Kosten der Zeit 
geht, sondern in Basic, um das Programm übertragbar 
zu gestalten. 


TIME FROM Be-BaBB 44 





Aus diesem Grunde wurde auch auf Poken der Re- 
chenwerte in den Speicher verzichtet. 

Das Programm erwartet den Tandydrucker DMP100, 
kann aber ohne weiteres an jeden grafikfähigen Druk- 
ker angepaßt werden. Die Zeile 22 enthält den notwen- 
digen Grafikcode. 

Es wird zum Beginn entweder die Funktion Y2 = f(x) 
eingegeben und dabei in Zeile 37 ein GOTO43 ge- 
schrieben oder es wird bei Funktionen die einen Bruch 
enthalten, der Zähler als y5 in Zeile 37 und der Nenner 
als y6 in Zeile 39 geschieben. Zeile 43 muß dann 
natürlich lauten: f(x) = y5/y6 


FE 
5 


1 
. 


IT LO 


an) 





FYEIGHT TH-GE-S0FT" :FRINTTE 
:HE=&T: FRINTCHREN 25 


PRINT" THL "EOGEAMM RUSS OH EWERY MACHINE HITH AHL WER 1SE MEM." 
FRIHT"TO 2 DELETE THE LINES 18 a 
FEINT"THI 1 HEED ER @ „HOURS FÜR 


Hin ur Ed 53 SEE BE EAN NZ 


FINTER CHPFIBR, " 
IE E#AMFLE : " 


INTERYALL IHTEGER TO 7 "VW 
THEH 14 


TIONS BLANK kt 
CB: NERT 


-15 a 


TIME FROM GaraG/00 95:44:54 TO GA/EROR 02:32:37 


ABFRAGE AUF HENNER = Go SEKE 
‚THEN NEXT: 


Se TE 


' TO"; RICHTET TIME 





Ein Pferderennen istimmer spannend, besonders wenn 
auf die Pferde gewettet werden kann. Der TRS-80 


Pferderennen a ee en und simuliert das 


Alle Informationen sind im Programm enthalten. Auch 
m F & die Erklärung, wie gesetzt wird, wie die Chancen 
für TRS-80 Disc-Basic Modell 1 errechnet werden und wie Gelder zu gewinnen sind. 








e.o.a—ae80°—;— 8; ee 8 8 8 8 8 8 Br Br DB 8 95 oo © 





1 CLS=FRINT:FRINTSFRINTSPRINT” FFERDERENNEN oe 
vers. 2.0” 
2 FRINT” Felix Bertram” 


u PRINT m unnuusnnnn— na aa dr an 


» 


10 FRINT=FRINT” Anweisungen (J/N) 7?” 

20 Mb=INKEYSSIF M$C)”” ANI M$C)”N”THEN?O 

30 IF M$="N” THEN 100 

31 ELS:PRINT” ”+FRINT 

32 FRINT”*x* Die Anatomie eines Fferdes”sFRINT 

33 FRINT” H=Hals,B=Beine,K=Koerper” 

34 FRINT” am Alle diese 3 Teile sind voellig gleichberec 
het “ 

35 FRINT” tigt.Das bedeutet auch Beine zaehlen nur ei 
mr 

36 FRINT”KKKKK mal.An der Summe der Laengen dieser Teile e 
p-® 

37 FRINT”R R kennt man die Geschwindigkeit dieses Fferde 
or 

38 FRINT”E RB” 

39 FRINT”E B* 

43 FRINTEFRINTEFRINT"MESWESSEEKK (Taste drueckendBCBWESHWIEHEH” 

44 IFINKEY$=””"THEN44 

45 CLSSFRINT”’Rr®%%# WETTEN #%#”: PRINT 

46 FRINT”’Es gibt 2 Moeglichkeiten zu Wetten: Auf Sieg und auf FL 
atz. Bei” 

+7 FRINT”Wette auf Sieg gibt man das Pferd an, von dem man m 
eint, es” 

48 FRINT”wuerde gewinnen. Bei Wette auf Flatz ein Fferd und de 
n Platz,” 

49 FRINT”von dem man meint das das Fferd in belegen wird. Es gib 
t jedoch” 

50 FRINT”nicht so viele Flaetze wie Fferde: Eei weniger als 5 Ff 
erden 2,” 

51 FRINT”bei mehr als 5 Fferden 3. Ier gesamte Betrag, der auf a 
uf Platz” 

52 FRINT”gesetzt wurde wird auf die Flaetze verteilt (bei Wette 
auf Sieg” ! 

53 FRINT”nur auf einen) und steht dann als Gewinn zur Verfuegung 
„"aFRINTEFRINT”RR& TASTE xxx” 

54 IFINKEY$=”"THENS4 

55 CLS:FRINT”Teilt man jetzt den Betrag, der auf diesem Flatz 
steht durch” 

56 FRINT”den Betrag, der auf diesen Flatz insgesamt gewette 
t wurde,” 

57 FRINT”so erhaelt man den Betrag, der pro eingezahlter Mark au 
sgezahlt” 

58 FRINT”wird. Der Computer simuliert eine Menschenmenge, die i 
mner auf” 

59 FRINT”das groesste Fferd setzt und bei insgesamt kleinen 
Fferden” 

&0 FRINT”vorsichtiger ist, so dass die Quoten bei kleinen Ffe 
rden oft” 

61 FRINT”besser stehen. Aber beachten, dass bei Wetten auf FL 
atz der” 

62 FRINT”Gesamtbetrag auf die Flaetze verteilt wird !!1? 

63 FRINT:FRINT”xx%* VIEL SFASS, zu Beginn eine Taste druecken x%*%* 


» 





99 IFINKEY$=”"”"THEN?Y 














CLEAR:DIM R(10),2Z(10) 

CLS:INFUT "Wieviel Geld hast Lu”;6 

INFUT "Wieviele Fferde sollen laufen”;F 

IF F)10 OR F<2 THEN FRINT”Nur zwischen 2 und 10 !”:GOTO 
FOR V=1 TO F 

E=RNIKC7) EH=RNI CS) EK=RNIKT)I ES J=INTC(64-K)/2) 
CLS:FRINT ”Fferd”;5V5 TAR(J+K) *%*”=FRINT TARCJ+K) "area 
FOR M=1 TO H 

FRINTTARB(J+K) ”%*”:NEXT M 

FRINT TAR(J) ”x*”5 

FOR M=1 TO K-i1 

FRINT ”%*”5;2NEXTM 

FRINT 

FOR M=1 TO R 

FRINT TAR(J)”*”";TARCJ+K-1)”%":NEXT M 
R(V)=B+K+H 

FOR T=1 TO 1000:NEXT T=NEXT V 

ELS 

INFUT”Welches Fferd”;FF 

FRINT”Sieg/Flatz (S/F) ?” 

M$=INKEY$:IF M$()”5” AND M$C>”F” THEN 300 
FL=1:A=1 

IF M$=”"5” THEN 370 

A=2 = 

INFUT”Flatz”;FL 

IF F>S5 THEN A=3 

IF PL>A THEN PRINT”Nur”5A;”Flaetze !”:G0OT0340 
INFUT”Wieviel”;85 

G=6-$ 

ELS 

Z=F 


FOR R=0 TO 20 


FOR I=1 TO F 

IF Rt1M))250 THEN E=60:G0T0460 
E=RCID&RK+RNIKAO)I 

IF E60 THEN 320 

FOR M=1 TO E 

FRINT ” ”3»NEXT M 

PRINT ”3”=NEXT I 

FRINT CHR$(28)5 

NEXT R 

GOTOS4O 

Z{F-Z+1)=DsRCD)I=RCI)%100:Z=Z-1 

IF Z30 THEN 430 

IF Z(FL)I=FF THENS8O 

FRINT ”Iu verlierst !” 
IFG<=O0THENPRINT”Iu hast alles verspielt !!!”zEND 
GOTO480 

FRINT ”Iu gewinnst !” 
WI=INT(110*S+RNI(1000)) 

WE=INT(WI/A)I 
WS=INTCCRND (AO) +1S+RCFF)/100)%5) 
Q=INT(WF/WS#1O)/1O 

FRINT”Insgesamt wurden”;WI;”Mark gesetzt.” 
FRINT”’Das macht”;WP;”Mark pro Fferd.” 
FRINT”’Auf ’Dein’ Fferd wurden”;W5;”Mark gesetzt.” 
FRINT”’Die Quoten stehen”;0;5”:= 1 I!!!” 
6=6+0x5 

FRINT” Jetzt hast Iu”56;”Mark !!” 

FRINT "Liste gewuenscht (J/N) ?” 
M$=INKEY$SIF M$()”J” ANDI M$C)”N” THEN700 
IF M$=”N” THEN120 

PRINT ”"Flatz”,”Fferd” 

FOR V=1 TO F 

PRINT V,Z(V) 

NEXT V 

GOTO 120 











Energie 


Energie, dieses Programm erlaubt die 
Erfassung der Verbrauchswerte (Zähler- 
stände) von Gas, Wasser und Strom. 


In einer Jahresübersicht werden die Verbräuche, Ko- 
sten und Gesamtkosten ermittelt und dargestellt. 

Die "Plus/Minus-Statistik” vergleicht die Verbräuche 
von zwei vorgegeben Jahren und stellt die Unterschie- 
de in den Verbräuchen als Balkendiagramm dar. 
Der "Gesamtvergleich” zeigt den Gesamtverbrauch 
eines Jahres über einen Zeitraum von 10 Jahren als Bal- 
kendiagramm. 


Wichtige Programmteile: 

15 Poke 788,52 schaltet die Stoptaste ab 

1070 Kennwerte für Getroutine 

1080 Kennung "Falsche Eingaben” 

1500 Schätzung der Verbrauchswerte. Es wird der ver- 
bleibende Zeitraum eines aktuellen Jahres durch die 
Verbrauchswerte des vergangenen Jahres ersetzt. 


Telefon/ 
Adressdatei 


Das Programm Telefon/Adressdatei ist 

Menuegesteuert und erklärt sich daher 

im Wesentlichen selbst. 

Die benutzten Suchkriterien sind: 

. Adresse suchen. 

. Geburtstage in einem bestimmten Monat suchen. 

. Telefonnummern für einen bestimmten Namen su- 
chen. 

. Anschriftenliste für Festtage zusammenstellen. 


. Notruf (alle entsprechend gekennzeichneten Adres- 
sen und Telefonnummern werden ausgegeben. 


Neue Zeichen 


Mit dem Programm wird es möglich, 
neue Zeichen zu gestalten, bzw. alte Zei- 
chen zu ändern oder zu ergänzen. 





1800 Eintragen der Verbrauchswerte und Preise in die 
Tabelle. 

2700 Balkendiagramm 

3700 Übernahme in DATA-Zeilen (wenn Poke 646,6 
ersetzt wird durch Poke 646,14 kann die Ausgabe auf 
dem Bildschirm verfolgt werden) 

4220 Eingabe der Zählerstände (max. 5 Stellen) 

4402 Bestimmung des freien Speicherplatzes und evtl. 
Löschen eines Jahrganges. 

5000 Wenn neue Daten erfaßt wurden, wird die Ton- 
band-Routine aufgerufen. 

5220 Poke 788,49 schaltet die Stoptaste wieder an. 
5300 Löschroutine 

7000 Balkendiagramm für Verbrauchsdarstellung ü- 
ber 10 Jahre. 

8000 Eingabe Routine 

FE% - Kennung für falsche Eingabe 

AZ - Anzahl der Eingaben 

20000 Aktuelle Zeilennummer für nächste Eingabe. 
20010 Grundpreis, Arbeitspreis, Steuersatz für Gas, 
Wasser, Strom. 

20040 Anfangszählerstände 

20100 1. Erfassungsjahr 

20101 Verbrauchswerte 1. Erfassungsjahr 


Programm ab Seite 16 


Die Suchkriterien der Anschriften für Festtage und 
Notruf werden bei dr Neueingabe durch Eingabe einer 
Kennziffer festgelegt. 


Wichtige Programmteile: 
10 Cursorfarbe hellblau wird gesetzt 
1005 Cursorfarbe dunkelblau wird gesetzt - Ausgabe 
nicht sichtbar 
1200 Eingabe der Kennziffer für Notruf- / Festtage- 
Kennung 
1380 Übernahme für Datazeilen 
1410 Poke 631,19 Cursor Home 
5000 Getroutine (Länge der Eingabe begrenzt) 
5090 Poke 198,0 Setzt Tastaturbuffer 0 
Wait 198,1 Wartet bis Taste gedrückt wird 
Poke 204,1 Cursor aus 
Poke 204,0 Cursor an 
Getroutine (Länge nicht begrenzt) 


Programm ab Seite 22 


Im ersten Teil kann ein Zeichen des Zeichensatzes 
ausgewählt werden. Dieses wird zunächst vergrößert 
dargestellt, bevor man sich entscheiden muß, ob das 
alte Zeichen übernommen wird (zum Ändern oder 
Ergänzen) oder ein neues Zeichen gestaltet werden soll. 
Dann kann man im Zeichenfeld mit den Cursortasten 
einen Cursor bewegen. Will man einen Punkt setzen, 
kann man dies mit Space tun, will man einen Punkt 
löschen, kann man dies mit der Taste "Klammeraffe” 





Vier Spitzenbücher für 
VC-20 und Commodore 64 


Wer tiefer in Geheimnisse und 
Fähigkeiten des Commodore VC-20 
eindringen möchte, muß sich mit 
der Programmierung in Maschinen- 
sprache befassen. VC-20 INTERN 
bietet hier eine wertvolle Unter- 
stützung. Neben einer Einführung 
in die Programmierung in Maschi- 
nensprache und Assembler enthält 
VC-20 INTERN ein ausführlich 
dokumentiertes ROM Listing, die 
Belegung der Zeropage und wei- 
terer wichtigerBereichesowie über- 
sichtliche Zusammenfassungen der 
Routinen des BASIC Interpreters 
und des VC-20 Betriebssystems. 
Damit ist VC-20 Intern für jeden 
interessant, der sich näher mit der 
Maschinenprogrammierung des 
VC-20 auseinandersetzen möchte. 


VC-20 INTERN, 


1983, ca. 140 Seiten, DM 49,- | 


64 INTERN erklärt detailliert Archi- 
tektur und technische Möglichkei- 
ten des Commodore 64, zerlegt mit 
einem ausführlich dokumentierten 
ROM-Listing das Betriebssystem 
und den BASIC-Interpreter, bringt 
mehr über Funktion und Program- 
mierung des neuen Synthesizer 
Chips, beschreibt Interfaces und 
Anschlußmöglichkeiten, führt in 
Assembler und Maschinenpro- 
grammierung des Commodore 64 
ein, erklärt detailliert die hochauf- 
lösende Graphik und ihre Program- 
mierung, zeigt die Unterschiede 
zwischen VC-20 und Commodore 
64 und gibt Hinweise zur Um- 
setzung von Programmen. Zahl- 
reiche Blockdiagramme und lauf- 
fertige Beispielprogramme runden 
das Buch ab. 64 INTERN ist bereits 
über 10000mal verkauft und liegt 
jetzt in überarbeiteter und erweiter- 
ter 2. Auflage vor. Dieses Buch 
sollte jeder 64-Anwender und 
-Interessent haben. 

64 INTERN, 2. überarbeitete und 
erweiterte Auflage, 

1983, ca. 300 Seiten, DM 69,- 


Klar, verstä 





Angerhausen : Englisch 


VC-20 


intern 


Ausführlich dokumen- 
tiertes ROM-Listing 
mit einer Einführung in 
die Maschinen- 
programmierung 





EIN DATA BECKER BUCH 


Angerhausen : Riedner 
Schellenberger 


VC-20 


Tips & Tricks 


Eine Fundgrube für den 
VC-20 Anwender 


EIN DATA BECKER BUCH 








Angerhausen : Becker 
Englisch :Gerits 
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intern 





Das große Buch zum 
Commodore 64 


| |EINDATABECKER BUCH 


| 



































Wir liefern nicht nur VC-20 und Commodore 64, sondern 
auch ein riesiges Angebot an Software, Peripherie, Zube- 
hör und Literatur dazu. Mehr darüber enthält auf 80(!) Seiten 
unser aktuelles VC-INFO 2/83, z.B. Compiler, IEC-Bus mit 
BASIC 4.0, die neuen EPSON-Drucker, die ersten Steck- 
module für den 64, neue Programme aus aller Welt, CP/M für 


DATA BECKER 


Merowingerstr. 30 : 4000 Düsseldorf - Tel. (0211) 312085 - im Hause AUTO BECKER 


In unserem 800 qm Ausstellungszentrum in Düsseldorf führen wir Commo- 
dore, DEC, HP, IBM, Osborne, SIRIUS und andere gute Computer. 
Über 30 geschulte Spezialisten freuen sich auf Ihren Besuch. 


ab 1. 8. '83: (0211) 310010 


Angerhausen : Englisch 
Gerits 
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Tips & Tricks 


Eine Fundgrube für den 
Commodore 64 Anwender 


EIN DATA BECKER BUCH 





den 64, neue Fachliteratur und vieles andere 
mehr. dazu wieder viele Programmiertricks 


und -tips. Am besten sofort 
gegen DM 3,- in Briefmarken 
anfordern oder uns 

in Düsseldorf besuchen. 
































ndlich, in deutscher Sprache und mit vielen Bespielprogrammen. 
Mit DATA BECKER BÜCHERN machen Sie mehr aus Ihrem Computer. 


VC-20 TIPS & TRICKS enthält unter 

anderem 

© detaillierte Beschreibung der 
Programmierung von Sound und 
Graphik des VC-20 (z.B. mehr 
über die Möglichkeiten des 
Supererweiterungs-Moduls) 

@ mehr über Speicherbelegung, 
Speichererweiterung und die 
optimale Nutzung der einzelnen 
Speichermodule 

© BASIC-Erweiterungen zum 
Eintippen 

® umfangreiche Sammlung von 
Poke's und anderen nützlichen 
Routinen 

© zahlreiche interessante Beispiel- 
und Anwendungsprogramme, 
komplett dokumentiert und fertig 
zum Eintippen, z.B. eine Datei- 
verwaltung. 

VC-20 TIPS & TRICKS isteineechte 

Fundgrube jür jeden VC-20 

Anwender. 


VC-20 TIPS & TRICKS, 
1983, ca. 200 Seiten, DM 49,- 


64 Tips & Tricks enthält unterande- 

rem 

® eine umfangreiche Sammlung 
von POKE's und anderen nütz- 
lichen Routinen 

@ mehr über CP/M auf dem Com- 
modore 64 

®@ zahlreiche ausführliche doku- 
mentierte Programme, komplett 
fertig zum Eintippen (z.B. Sor- 
tieren von Strings, BASIC-Er- 
weiterungen, farbige Balken- 
graphik, Zeichendefinition incl 
deutschem Zeichensatz, 3D 
Graphik etc.) 

® mehr über Anschluß- und Erwei- 
terungsmöglichkeiten durch 
User Port und Expansion Port 
(z.B. Commodore 64 an Stereo- 
anlage) 

@ hochauflösende Graphik und 
Farbe für Fortgeschrittene 

64 Tips & Tricks isteine echte Fund 

grube für jeden Commodore 64 

Anwender. 

64 TIPS & TRICKS, 1983 

ca. 250 Seiten, DM 49,- 












tun. Beendet wird die Zeichenroutine mit der Funkti- 
onstaste Fl. 

Soll das Programm beendet werden, wird durch einen 
entsprechenden Tastendruck das Hilfsprogramm ge- 
löscht und die Zeichensatzroutine in das Programm 
implementiert. 


Dieses Programm ist dann mit GOSUB 60000 aufzu- 
rufen. 


Wichtige Programmteile: 
500-550 Stellt Originalzeichensatz vergrößert dar. 


Grips 


Gedächtnistraining für Kartenspieler mit 
dem Commodore 64 


Bei vielen Kartenspielen kommt es unter anderem 
darauf an, sich zu merken, wo sich welche Karte befin- 
det. Ohne Training geht man dabei aber leicht baden. 
Grips schaft Abhilfe. 

Zum Spielverlauf: Der Computer fordert zunächst eine 
Angabe über die gewünschte Anzahl von Karten, sowie 


GRAFIKZEICHEN 


ZEILE BILDSCHIRMCODE 


6x 102 

108,6 x 98,123 
97,97 

124,6 x 99,126 
99,83,65,88 


1928 
1948 
1952 
1959 
1509 


ALLE ANDEREN = RYS ON,RVS OFF 


Un IST DIE EEE SIEBEN 9-2 ODE 
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POKE 5633,127 Interrupt aus 

POKE 1,51 VO aus 

POKE 1,55 V/O ein 

POKE 5633,129 Interrupt ein 

Adresse 53248 Anfang Charaktersatz 

1000-1090 Abfrage des Fensters, Berechnung der Data- 
Werte und Übernahme in Data-Zeilen. 

1100-1200 Übernahme des Programms in das Haupt- 
programm. 

1210-1340 Löschprogramm 

1400 Übernahmeroutine 


den Schwierigkeitsgrad. Nun werden n Karten gezeich- 
net und der Reihe nach kurz aufgedeckt mit der Auffor- 
derung, sie sich und ihre Position zu merken. 

Der Computer fragt dann wo sich welche Karte befin- 
det. Darauf gibt es zwei mögliche Antworten. Glaubt 
man, daß sich die gesuchte Karte unter den auf dem 
Bildschirm dargestellten befindet, so drückt man die 
entsprechende Positionsnummer. Im anderen Fall gibt 
man "N” für "Nicht vorhanden” ein. 

Nach jeweils drei richtig beantworteten Fragen ver- 
tauscht der Computer zwei Karten oder ersetzt er eine 
Karte durch eine andere. Dies stiftet Verwirrung. Nach 
der ersten falschen Antwort werden alle Karten, sowie 
die erreichte Punktzahl angezeigt und das Spiel abge- 
brochen. 


raum 
MIT WIEVIEL KARTEN WOLLEN 
MIR SPIELEN (3-19) ? 18 


SCHWIERIGKEITSGRAD 1-5) ? 4 











August 1983 








1222 
1918 
1028 
1839 
1940 
19859 
1962 
1878 
1288 
1298 
1189 
1118 
1128 
1139 
1148 
1159 
11698 
11798 
1188 
1199 
1299 
1218 
1228 
1239 
1248 
1250 
1268 
1278 
1288 
1298 
1308 
1319 
1328 
1339 
1348 
1359 
1369 
1378 
1389 
1399 
1408 
1418 
14298 
1430 
1448 
1459 
1468 
1478 
1488 
1499 
1508 
1512 
1529 
1539 
1535 
1548 
1559 
1568 
1578 
1588 
1598 
1698 
1618 
1628 
1638 
1648 
1659 
1668 
1678 
1689 


GOTN1518 

C=INTCBL/S>Y:%=CBL/S-CHE-3)#49 :7=C#12:ONDGNTO194R 
Kek+l:Yer+l:FORT=ATOB:SYSYR HT," RER  NEKT 

SWSV.K+l, 744," "STRECEL>" ":RETURN 

SSR" — ":FORT=1T03 

SPSVH HT" BB" NEXT: SYSY.A:T7+1D,"  — 
BeKKCBL> :C=1-LENCKECB, 23) :A$=K$CB, 23: Bf=K$CB, 3) 
STEVE RA SS KHEHT HLASSSTSW HL HZ BE" "B$; 
SYEVK+3, 745, BEBES STSV KH, +, BE" "Bf; 

SUSV KH HI AR STSV,KHE+L, Y+9, AS" RETURN 
IFZ>=32THENGOSUB1322:Z=1 
N=INTERNDCLDMLEHL II CKKCNI=KCZY : ZeZ+1 : BL=N 

D=1: G0SUB1919: FORS=ATOM: NEXT : D=@: GOSUB1Y1A: RETURN 
N=1-INTERND«1>+.3> :ONNGOTO11S5 

N=INTCRND«C 13M32+13:G0T01169 

H=INTERNDELDMCE+HL DI N=KKCH> 

B$="DIE"  A$=K$(N, 2): IFAg="A"THENBE="DAS" 
IFAg="K"ORA$="B"THENBE="DER" 

STEV,A,11," A UD IST "BE" "KECN,1>5" "KECN,AD" 9-9 ODER N "RETURN 
FORS=QTDE : IFKKLS><>NTHENNEXT : BL=E :G0TO16Q@Q 
GOSUB1319:SY7SY, 11,11," FALSCH m" :GOSLIB13MM 

STYSV,9,11," SIE HABEN "STRE(P)" FRAGEN BESTANDEN m" 
IFP=1THENFOKE1483, 168 

D=1: FORBL=ATIE :GOSUB1@1A: NEXT 

GOSUB13@9:S'75V,5,11," EIN NEUES SPIEL (J/N> m" 

BETA$: IFFi$=""THEN1259 

IFA$<>" JS" ANDAS<CH"N"THEN1259Q 

IFAg="J" THENGOSUB1319:GOT01528 
GOSUBL319:SYSV, 19, 11," SSCHADE" :GOSUB13@A 
FRINT"7":POKES3289, 254 : POKES3281 , 246: END 
FORS=2T02998 : NEXT 

FORS=@T034 : POKE1464+S , 160: NEXT RETURN 
FORT=1T032:KCT)=T:NEXT: FORT=AT0192 
A=1INTERHDE13M32+13:B=INTCRNDC1I432+1) 

CK (A): KAD=KLB) :KCB)=C: NEXT: RETURN 

PRINT"7": POKES3289.9:POKES3281,8 

SYSV,13,4,"M GRIPS M":SYSY,3,7,"MIT WIEVIEL KARTEN WOLLEN" 
INPUT" MUBBMIR SPIELEN (3-19) ";E 

INPUT" SIMBRISCHUIERIGKEITSGRAD (1-5) ";M 

IFE<30ORE> 190RM<LORM>STHEN 35 
E=E-1:M=(6-M)#12QR: PRINT"TI" RETURN 

DIMK$ (32,35 ,K(32) : V=49152: P=9: Be: A=RND(-TI> 
FORT=YTOV+25: READA : POKET ‚A: B=B+A: NEXT 
IFBC>3SEESTHENPRINT"MIFEHLER IN DATA-ZEILEN" END 
FORS=1T032STEP4 : READA$, B$: FORT=QT03:K$(S+T,A)=At 

K$CS+T, 23=B$ NEXT : NEXT: FORS=9T03 : READA$, B$ 
FORT=1T032STEP4 :K$(S+T, 1>=A$:K$CS+T,3)=B$ : NEXT : NEXT: RETURN 
DATA 32,253, 174,32, 158, 183,139, 72,32, 253,174,32,158, 183 
DATA 194,168, 24,32, 249, 2535,32, 2593, 174,76,164,170 

DATA SIEBEN, 7, ACHT, @, NEUN, 9, ZEHN, 19, BUBE, B, DAME,D 

DATA KOENIG,K,AS,A, KARO, "4", HERZ. "@" ,PIK, "@", KREUZ, "mM" 
GOSUB1419:G0SUR1359:SYSV,5, 11," BES GEHT LOS m" 

GOSUB1328 : FORT=BTDE :KKLTI=KLT+1) : NEXT: Z=E+2: P=R : GOSUB1398 
FORBL=@TOE :D=1 :GOSUB1919: D=9: GOSUB1219:NEXT 
FORT=14991T01583: POKET , 32: NEXT 

SYSYV, 33, 11,STRECPY:SYSY,5,11,"M ACHTUNG ! KARTEN MERKEN M" 
FORS=9TOM : NEXT : FORBL=BTOE : GOSUB1129: NEXT :GOSUB1312 
FORL=QT03: GOSUB1139 

GETA$: IFA$=""THEN1S?® 

IFA$="N"THEN119® 

IFKKCVAL<CAF>><S>NTHEN2OQ 

GOSUB131A:SYSY, 11,11," RICHTIG =" :P=P+1:SY78Y,35, 11,STR$CP) 
GOSUB1 398 : G0OSUB1319:NEXT:L=INT<RNDE1>+.53 :ONLGOTO1648 
SYSV,9,11,"BICH TAUSCHE JETZT EINE KARTE AUS m" :GOSUB132Q 
BOSUB1 108: GOSUB 1309 :GOSUB1319:G0T01568 
A=INTERNDELDIMCE+HL DS B=INTERNDELIHCE+LY 3: C=KKCAY :D=KKCB) 
IFA=BTHEN1648 

SYSY,7,11,"BICH VERTAUSCHE JETZTE" :GOSUB139Q 

SYSV A 11," RUKECO, LI" "KECC,@>" MIT "KECD,13" "KECD,Q) 
GOSUB1398: C=KK£A) :KKEAD=KKCBI !KKCBI=L:GOTO1SER 

















A BIS ENTE Men: Br 


Beeeereeeer 


3 GOTOLE 


TTARESIÜUEBERSICHT UND STATISTIE JERER 
FRIHMT"M"TARE IE" ENERGIEVERBRRUCM 
PR 11T" mem En 


PRINT" KERHEILTTE WAEHLEN SIE DEN PROGRAMMTEIL 





"aa. 
PRINT" ME = 
FREIHT'MAS.E W 


“ HEURUFHRAHME ZWVE 
INT» Ni. a ENDE 
Th 
TI MRKEHHERHL : 
KlalaTs] 
ETEILAFORASEHTE + THEHPRIHT BERN" 5 GOTOZZO 





OHWAL« T# PEQELELEEE. Fe a, ae. SE 
FEIMTTTIRRNEN EL HE NEE | 5 FROBRAMMES | 
FREINT'EBWON WELCHEM : AH WURDEN DATEN 
PRINT ERERTEEERFASST?" 

GATOLERZE 

PRIMT:PRIHT"— 

FRINT"MSEBEN SIE DIE ZAEHLERSTAENDE FUER 
FEINTRBRERBRRATAHLAR "SAE" AH 
FRIHT"MBEIHGABEH IMMER MIT ERETÜRNGE BEENDEN! 
IHFLT"MSRS "3 

IHFUT"EMASSER © "bl 

IHFUT"MSTROM 3938 

FRIHTESEIGOSUERAAN 


2 IFTE="J"THEN4ID 


IFD#=1THENSA 

FRIHTLEFTECCEE. 1655 

FORI=1T08: FRINTLEFT£CC3S$, 355: NEHT 
FREIHTLEFTEÜCZE. ie) 

GOTOZSE 


A RESTORE: READA:PRINTOCIECIF POKES4E. 1: PRINTREOB4EDATA"G" 


FRIHT"EBLOADATA"IAF 
FRINT"FBJE=" JA#":ZL2="A 


a OGOTEEFIE 


EHD 

REM JAHRESUERERSICHT 

FRIHT TI ERIATAHRESLERERSICHT GESAMT 
FREINT"M"TARCIGS"FÜER DAS JAHR 


1049 FRINTTAB« 23 Ti 
1959 PRIHMTTABE123" 
1269 FRINT"TTIY'TARLI4>: 

1972 I=0: AZ=4: IK=1:GOSUBEOEH 
aaa 

1mam . 

19935 

1199 g 2 ETHENLI2G 
1119 GOSURSIAR:PRINTLEFTELCHE. LODTAEL ED ER"; GOTOLSTE 
i124 RESTORE: READDA 

1135 FORI=BTO2 

1149 REARGPEIS.APKII.STEID 


1150 


NEXT 


von, 


"5 


























READZG: ZU 

FERDIA 
IFIA=WAL« IA&> THENL3BE 
FORI=1TO12:READYGE 
IFVGE="ENI"THENZE 

WERL CYEE READY YSCHERTI 


A Soro ira 


PRINT" SEIEN" : FÜRISLTOILZ:REANVGE 
IFWG&="EHD" THEHGOSUE1SAR:GOTOIR 
VE=NALCNGED READY WS 

SOSUBERER 

SOSURBI SEE 

PREIHT 

HE#AT 

BOSURLEFR:GOTOIE 

REM SCHAETZUHG 

IFYALC IAFI=JERHIVGE="EHN" THENFOKEAFS,DCMAITISE. RETURN 
H=1:RESTORE : READDA 

FORI=ETOZ 

READSFEIDAFCISSSTEILS 

HEKT 

READZG, ZU, 25 
JAF=STRECHALEIAEI-1H IFYALCJAFILIETHENRETURH 
READJA 

IFJA=YAL« JA$ > THENLE4R 
FORI=1TO12:READYG 
READYUYSCHEHTI 

SOTCIL SER 


4 FORI=ITOH-I: 
ä FORI= HTOLE: 


1555 
1225 
rad 
Pia 
1728 
ra 
ra 
1, SE 


12a 
13H 
LF2E 
12a 
1979 
1335 
za 
295 
zeile 
2u20 
2a23 
2230 
za42 
zes 
20655 
2070 
zuS2 
2118 
2115 
22180 
22208 
2220 
2235 
2240 


: PU=Eu: PS=E5: PRINT: GOSUBSERB: GOSUEL SEM 
5=1IHT£53-123:5P=INT(SE/12) 
=INT£PS/12>:PRINT"M 


SEE". 


Eisag: K=3Q: 
INTESFOIGOSUBLSBA 


REM FRINT 

IFRA#=BTHEHPRINTTARERI"B" :GOTOLDRH 

IFk=37THEHLITE 
FRINTTABEH-IHTELOGCHRIFLIGCIBIIPRIGCHTFCSTRECKK I LEHLSTRECHKID-135:G0TO199R 
FRINT"STABCH-INTELOGCHKDZLOGC II IIRIGHTECSTRECKK LENLSTRECHKID-L)Y 
RETURH 

REM STATISTIE 

IFD%=1 THEHGSOEUESI1AR: RETURN 

FRIHT TIER RATAHRESVERGLE ICH 

FRIHT"M'TABCIRD"FUER DIE JAHRE 

FORH=1TOZ 


-FRINT"M"TAR« 


FRIHTTARCISN" Teck | 
PRINTTABC 137" ——— 
FRIMT"TIVTARC1SI; 
I=8:Az=4: Ik SUBS092 : IFFER=ITHENZ2GRG 
Er THEHFRIHT:FRIHT"M"TABEISI "UND" 
EHI=WALETEICHERT 
He DZ IKEZIORIEKELILIEORIKC1I=:IAC2) THENGÜSUFS1OR:GOTOZELE 
PREIHT"I"’TARCI3D ZUAHRESVERGLEICHN 
FRIHTTAREEIED" SM WeiAS; BE BEUASSER; Mi STROMN 
FREIHT"MLEGI MWERBRAUCH "IEC2I"> "IALLDMFORI=ITOF 
IFI=SSTHENPRINT"SE | ":GOT02245 
PEIHTTARESH"T" 

















2243 
2247 
2258 
an 
2235 
2268 
22655 
Zara 
22a 
2285 

2238 
za3a2 
2319 
2338 
2342 
2358 
ZaSE 
2365 


HEAT 

FRIHT" 

PRINT" 

PRIHT" 

FRIHT" 

FÜRI=1TO6S 

IFI=3THENFRINT" SE I "GOTT 

FRINTTABCS"T" 

HEM#T 

FRIHT" 

FREIHT" LIE. nennen 
FRINTTABE4>"I FMARM I JARSCOND 
RESTÖRE: READDA 

FÜRI=5TI2 

RERDGFEID.APCEID,STEID 

HE#T 

REANZGE. ZU. 25 

FÜRH=1TIZ 


a READIAE: IFIAF="EHL" THENGOSURS1AD:GOTOLE 


JA=YALEIA&I: IFJA=IZ CH THENZ240 

FORIT=1T012: READYGE: IFWGE="END" THENGOSURF1RS: RETURN 
YG=NALEWGEI:READVU. VS NEXT :GOTOZSTE 

FORK=1TOIZ 

IFH=ZTHENZ2438 

REAIWGE: TFYGE=" END" ANDA=1THENGOSUESLBAN:GOTOIE 
VERENALEYGEI: READYUCRSSVSCHI:GOTOSISER 

RERAIYGF: IFYGE="EHND" THEN IK: GOSUR1 SER: GOTOZIFE 
YG=WALCYGE) READY. WS 


54 GOSUBZTER 


3 FORZISZETOGHE 


HEATA: HEATH 
FRIHTLEFTEECZF,E3 OELELEISE: GOSUESAAA: RETURH 
REM STAT. FOKEH 
=12:Z4e12: 2681: Zul 25-1 BR IFVGCHI=VGTHENGR=12: 50702768 
#O=RTHEHNGR=3: zu=-1: GOTIZFER 


IFVMSATHENUR mal: GOTaz 
IFYUZWLICRDTHENMASLSHTE 
IZ-IHTE VAL ES 
IFVSCK)=VSTHENS SiS: Om 


IFVSSRTHE 

IFWEPWS 

er NER 
IFG%=12THEHEFFE 


aa 


Em  NEURUFNAHMECPRE 
DET TRIER 
HT" 
AT RR 


4 PRIHTIRE 


FR Tomas, ® STROM 
r PRINT Wenzan. ee 2 u 1 
AFRIHTURBER" :: GOTOZA2E 


ONVALETKSCOTE: reiste 
REM HELAUFNAHME 6 























HAHME STROM 


IMT'ZHEURUFHNAHME ST 


"MONEITTE GEBEN : 

ERINT"RMOSRUNDPREIS 

FRINT"ARBEITSPREIS 
HT"STELER 


HLEFTECTS, ‚LENCTS 
PRINTTABEI1SPE: 


'FRINTLEFTE 


IFL EFTECTE 





HTWSS 


S31+H IERTMIPIKEA 


ADA:HERTI 


:GOT04100 


F INTEL. 
:IHT' WB 





28,115 





LTHE| 
"HM" TA 


aa NERT 
NA+3 +" DATA" 


‚La>TARe2e 


CDGE5+" „"+STRECDUDH" 


GOTTLIEB 

















44a 
4and 
ER 
44a 
441 
4412 
4 
4415 
4a 
4417 

445 
4428 
4435 
DT 
4458 
aaa 
4 


IFFRECOI>LMBTHENA41 
HRITTEN! 


DER IAHRGArs 


PRINTEA : HT'SX MEDATA"DA+HL 
PRIHT"? 
FRIHTDA 
IFMOH HEN4SBEA 
FRINTDA DATA” .IAE 
DA=DA+1 
FRINT'SEBRBENATA"DA+L 
FRIHT" MM" 
FRINTDA+Z"DATAEHD" 
SOTOIZFLE 
REM ENDE 
IFTB=ÖTHEHPRINTLEFTECGIE, R 
FRIHTLLECSEFÜKEES4S, IL PRINT"SSHA 
UTISBSAT" 
GOTI3TER 
PRINT"TIEOAS PROGRAMM MUSS NEU AUFGENOMMEN 
a aan ı 1 7177 7777777777777 77777 EM! 
PRINT" ————— — 
ER MN EL EN SIE EITTE nA5 
FORM=1TOZ 





HPROSRAMM LAEUFTITT POKERAE. 


+1 THEHS3TE 
FRINT"S33@PRINTCHRE S"GOTO ‚Fi ":GOTO371LE" : FRINT"GOTISSER" 


- 
FRIHTI: 
FRIHT"G 


YO "TEPRBIS "TEHIE 
] GHTFESTRELIDS LEHNKSTRECTS: >: IFIEILBTHENRES" MM" 
2 nn 
E Yr 

PRINT FT ee mg 
PRINTTARCSH" MSAS" TABELFIT RR R"TARE "BSTROM" 
FRIHNT"MEM. y 
PRINT" Ian. : m" 
PRINT!" mn 0000 
RESTORE : READDA : FORI=BTIE: RERDGPCIDSAPCIS,STEIICNERT 








:GOTO3 

















AMETTER MIT 


:BETLUFH 

T 

135.8: WAITI28.1:GETTE:PRINTTE :FOKERBG. I: RETUFRH 
HE EINGABE 


:HEAT:PRINT®T ORM=1TOSE: NEKT 
:RETURH 
REM TABEL 
PRINT"TITAHR BRACH FI a" Jar 
PRINT" —— — - 
FRIHT" IMOTM GASmI DM I m | DMIMSTR Bi Tim IMGES DIE" 
Eike I h " 





PRINT" m 
FRIHT" IRSUMI ! 

18118 PRINT" —m——— + 

12128 FRIHT" ING © i j j 

121.39 

18158 

12158 

36 354 

Bass DATA Zuie 
DATRE.M.E 
DATAS.G.G 
DATRE,8.8 
DATA 1.1.1 
DATREHD 











[2] 




















% TEI SZ THENGASUESIAR: GITO 


ÖNBGOTI429. SEd, 420.450 
PRINT SIMKMELCHER Am ‚I 


IMEITTE KARTEN SCHICKEN An: 
dd I 2 ZZ 20202 27 7 27T 7 22 77 7777777777777 


T'TIEWFUER WELCHEN MONAT WERDEN DIE 
FEIHT"SGEBURTSTAGE GEWUENST ? 
RIHTRISICHAT mE DEE ; 2:5051EI008 

TE 
FEINHT'IEIWS EBRURTSTAGE: 
FRIMT 
Aa: SOTILE 


PRINTOSS 

FREINT' MAI HEURUFHARHME 
PRINT’ MRZM LOESCHEN 
FEINT'MISM AENDERUNG 
PRIHTE Ei 


VALCTE» 
ONEGOTOL1ER. 1598. 1505 
FRINT'IHOTRUF 
PRINTER 
BE="4" :GOSUB3098:PRIHTEISWUT 
1aas IFTBR=BTHENFRINT"I":GOTDIASE 
1265 FORER4E FEINT'IEATB=A" 
1897 PRINT"GOTOIALA":GOTOL4IR 
1218 POKES45,14:PRINT"TINSIE MLUESSEN DAS PROGRAMM HEU SPEICHERN! 
1928 FRINT"WSFULEN SIE DIE KA TTE ZURUE 
1a32 FORM=1TOZB98: NEXT 

















1338 
14 
1485 
4 
1502 
1595 
1519 
1320 
1939 
1548 
1530 
15658 

1562 
15655 
156% 
157 

1575 
12 

1530 
1GB 
1768 
1718 
1728 
17289 
1742 
1759 
1768 


FRIHT"NSTETZT BITTE DAS PROGRAMM SPEICHERN! 
FRIMTUIRBET 5 CH U ES 5 Ill" EHI 

FRIMT"IIEN EU RUFHNAH ME ":FÜORI=ETUS 
ONI+1GOT01120. 1138. 1142, 1158, Kuan, Liren „L1a0, 1139. 1209 
PRINT" MR/ÜRNAME cm) :GOTI12 

PRIHT"ASZUNAME Ä :GOTO1 Er 

PRINT" MRSTRASSE .< GOTII26Y 
FRIHT"NSHLUMMER > GOTI126H 
FRINT"MMFÜSTLEITZAHLE:@ SRH" ; GUTES 

PRINT" ASUCHNORT :SOTILEEH 

PRINT" MMTELEFÜHNLMMER: m > 1: GOTILZSE 
PRINT"MAGERURTSDATUM SE Sk. 6 EEE" ; GOTOLZIE 
PRINT"MKZE 

FRINT"MCQ=ARZT, 1=WUICHTIG: 2=UNWICHTIG) TWERRREHANRERÄRT ; 
G=1:G05UBSG98:5OTLI127 

Ast De" FORISATORGeZ: 

ASCIIERSEII+HTEI PRINT"; 

HEXTI:GOTOI2SQ 

G=4: GOSUBSAE: GOTLLZTE 


L=1 THENR3E=| 
IFC=3THENRETURH 
IFIZC>1LTHENI3SE 
GOSLUB3IRRE 
IFD=ATHEH1 359 
FRINT"#SERSDER HAME IST SCHON ERFRSSTI IHR 
FÜRJ=1T059M: NEXT: GOTOSE 
IFI=1THENAELII=SB3E 
CE=lH4Age dr", 
FREIMT:HEHTI 


LEHECEI-L) 
IFLENCCKIPETTHENPRINTELE" RANGAHE ZU LANG I": FORI=ITO2BSB :NEHT:GOTO1G 
3 RESTÜRE:READE :E=E+i : FÜRESA4S, 5: PRIHTTERABBDATA"E 


FEINTZEBBEH+E"DATA"CE 

FREIHT'"SBOTB=1" 

FRIMT"GOTOIE" 

FOEESSL, 12: FORN=1TOS:FÜKESSI+N. 13: NEKTN:POKELIS.6:END 
FEIHT"LOESCHEN 

IFG=3THENPRINT"IR EN DER UHNG 

PRIHTL3E 

PRINT" AMORHAME :@ >. ul"; GOSLIESEANBLE=TE 
FRINT:PRINTMSEUHAME m >. Ch; GOSURSABR: BIS=TE 
FRIHT:PRINHTCIE 

FRIMT"SRUECKSFRUNG MIT RC" GOSUBSZAR: IFTE="R"THENIG 
GOSUB3ZORR: IFTE=" N" THENIG 

IFNE=1 THENZEES 

IFA=2ZAHLG=ZTHENL FOR 

IFE=S#HTHEHGE="" E=E-1:50T01550 

E=E-1: FÜRM=#+TOE+1: FÜRK=OTÜS:READAE: :NHE#TE.M 
FORM=BTOZ CFECFHAELEMI+" "SC NERTIMICH=LEFTELCH LENGCEI-1) 
FOHES4S. ©: PRINT" TEOBSSDATA"E 

PRINTZBEBB+R"DATA"CE 

SOTO1ABE 

PRINT" AM": FORJ=OT03:PRINT"M'J:CNERTI 

FRINTCLSKZE :G=1 G0SUBSORE 

I=YALE TE): IFASCHTEILISORASCETEISSSTHENGOSUBS1OR:GOTOL FIN 
FEINHT"D"ONI+LGOSUBL1ZE.113@,1149,1150. 1158. 1179. 1189, 1190, 1200 
FORI=3T08 

CH=lH+Agl])+"," 

HEXTI 

C$=LEFTFCCH LENHCCEI-15 

FÜKEB46. 86: FRINT" TI" ZBBBE+R" DATA"CH 

GOTOL4AR 

FREINTELE" ZHAME HOCH MICHT ERFASST 

FÜRM=1 TOzZRAR: GOTOIG 

RESTÜRE:READE 

IFE=BAHDGCZ>BOTHEHRETURN 
IFE=ÖTHENFRINTCI$:GOSUBSLOR:RETURH 

FORK=1TDE 




















FORM=STOS 

READAF CM) 

HEKTM 
ÖHAGITOSGER, 3390. 3400 


a UNBGOTI3108. 345%, 3198, 3409 


IFBS=A$C1) THEN3129 
IFX=ETHEN32B8 


5 G0T03598 


IFD=1 THEN3158 

D=1 

FORM=BTOS:C$HCMI=A$CM) : NEXTM:GOTO311Q 
IFD=2THEN3198 

D=2 

PRINT: PRINT" MIVORHAME :@ >. <UM" ; : GOSUBEARG : BLF=TE:PRINT"T" 
IFBi&=C$(8) THEN3ZU@ 

IFBi$=A$CO) THEH3218 

FORM=9TOS: ASCM=eL&CHM) :NEKTM 
IFD=BTHENPRINTC1S"NAME NICHT VORHANDEN!" RETURN 
GOSUB4988 : PRINTL1$WTF : GUSUB3298 : RETURN 
GOT03598 

IFB2#<CDASC LI THEN3SOO 

IFBLSCHAFCO)THEN3SBB 

IFC<>1THEN3348 

D=1:G50T03588 


FREINT'BRFASOLL GELOESCHT EHLNERT WERDEN I7HI7?7 ZEu"  e 


3,23 THENGOSUBARORB 
INE= 1: RETURN 
ZTHEN4IRE 
ÖRC=ZTHEHRETURN 
FEIHT"IIAENDTERUNG 
FRIHT 


ar sul 


PRINTASCLITABCLEIAS 5 
RETURN 


9 OHEGOTO41SR. ,4352.4458 
RI 


FRIHT"TA H HR FT.* 


5 FEIHT U nme BEER EENGEE»LISLEEEEPTELETETEREEEESEEESERLEETTETEETE EEE LEBE 


PRINT"TM'RE« 

PRIHT"M"A 

PRINTER 

RETÜRH 

FPRINT"M'ARECHTARKITIAFLLITABCIN): 

FRIHTLEFTEURFC?) ""MIDECAEC?I,3,ZED""RICHTECAEE TI 


3 RETUFH 


FRIHT""ITTELEFÜMNMNUMMER YO: 
FRIMT 
FRINT"EEN"AFCOITARCISIAELL) 
FREIHT' MEI" RES) 

RETUFH 

H=H+1 
PRINTRSCHITABLISIAFLLD 
PRIHTASLEI" .„ "A&C3) 
FRINHT"M'ALCAN RN AECS) 
PRINT" 

IFHZSTHENRETURH 


4 FRIHTLZEUTE:GOSUBTZER : H=9 RETURN 
a REM INPUT 


FORK=1TOG 

R=R+1 

POKEZE4. 9: FOKE193,9:WAIT138,1:GETT$:POKE2B4,1 
IFASCETEI=13THENSA?7O 

PRIHNTTE: :GOTOSASG 

IFR=1THENSB3G 

















T$=R$:R=9:R="":RETIRN 
Re=R£+T&£:NEHTE:GOTOIESE 
REM FALSCHE EINGABE 
FORM=1TO1E:PRINTCIECZE 
FORN=1TOS@: NEXT:FRINTLIFFER 

5 FORN=1TOSM: HEART 

5148 NEXT: RETURN 

szad REM MEITER 

s218 POKE133,8:WAITiIFS.1:GETTF:RETURHN 

EBad REM IMFIUT 2 

gB1ld Fer+l 

cQZE FOKEZB4.9:POKEIFS.M:WUAITIFS.1:GETTF:POREZO4 1 

Ea3a IFASCETEI=1L3THENGASE 

sad FRINTTE". ZUM: GOTOERSR 

6B5B IFR=1THENEOES 

BOB TE=RE:RE="" R=B: RETURN 

EBIB RE=Rf+TE:50TÜIERLE 

zen DATAR 





REM CHARAKTERGENERATOR 
REM Wk ROLF WERDEHAUSEN Mk 
REM Wk KARLSTR. 3 
REM Mk G6D1 KLARENTHAL Hi 
REM BKARORHEHHEAARBREÄAR 
AL = 1" EONDEÜRENKUNTUNTKTKTSTRTSTKTKUDSTRTKTETN 
Azse" n 
POKES4S. 14: POKE6S@, 128: REM ALLE TASTEN. WIEDERH 
PRINT" TI" TARG 19) " ICHARAKTERGENERATOR 
PRINT U ———_0 
FORI=1TOS: PRINT" I"TABC3B)" 1" :NEKT 
FRINT" “ 
PRINT"MMIRHELUES ZEICHEN SALTES ZEICHEN 
PRINT" RBB 2345678 12343678 
PRINT ———, " 
FORI=1T02:PRINTUW LTM" TABEL2H" "TABEZ4I LTM" TABEISI" 1" :NEKT 
FRINT"IBES | In Bl je 
FRINT"MK | | NUM IZEImI 41 1" 
PRINTIBE | I 11 151 u 
FRINT"IBIG | | u 
FORIS?TOS: PRINT TUI TABEL2I" TTABCZ4I "I" TABC3SI" 1" NEXT 
PRINT s . 
PRINT SERUM ÜDER KOM ZAEHLEN MSERRBEITEN" 
PRINT" MTABEH)" RR! JEINGABE<" : ZN=8: G0TOS2E 
GOSUBEAA: IFTE="E"THEI 
IFTE="R"THENLIEG 
IFT$="C"THENZHSZN-1:G0TO31@ 
IFT$<>" >" THEN2SO 
ZH=ZH+1 
IFZN>=1 28THENZN=R : 6070328 
IFZHCATHENZH=127 
PRINTLEFTECAIS,ITITABCISI"  AMMRICHTECSTRECEN) -LENLSTRECZND) 
FOKE1685, ZU: POKESS3S7, 
GOTOaSE 
UB1IE 
FRINTLEFTSCALSHURIHBELES ZEICHEN MELTES ZEICHEN REHDERN" 
FRINT"M"TABC1S)" BEINGARERM" 


IFT&="H"THENGO UE1L350: GOTOS2 
IFT$CH" A" THEN3SO 
a 55= 4 -S0SUB135 sw: GOSUBZIA:GOTISZEA 


R REM ZEICHEN ' 3 

Ki PRINTLEFTSCHLS. 1 FÜR. : FÜKEL.S1 
#=PEEK. B i 
FRIHTTAB 

















548 HEKT:PRIHT:NEKT 
559 RETURN 
gEA REM EINFACHES GET 
#19 FORE195,9:WAIT198.1:GETT£:RETUFRH 
520 PRINT" SIAMM" TARCS> "STEUERUNG MIT CURSORTASTEHN 
638 PRIHT"EMIAEM=ELDESCHEN FIBSUERERNAÄHME RSPALEB=SETZEN" 
658 REM CURSÖRSTEUERUNG 
658 SP=1:5=1:ZZ=1:FE=B 
E78 FO=S1RZ4HSP+3+LZI+H112#42: IFFEERPÜOD=SITHENFE=1 
559 ZE=E1:FA=7:G0SURPAR:GETTE 
590 ZE=3E:FA=14:G03UB9AB: IFFE=1THENZE=EL:FA=7: PE=i: GOSLUBFRE 
a8 IFTE=""THENETE 
rıa IFT&="W'ORTE=" "THEHN?SO 
r28 IFT$="W'THENSZE 
738 IFT$="T}' THENS4O 
v4 IFT$="M" THENSSE 
758 IFT$="®"THENSSE 
6A IFASCETEI=133THEN OS 
779 GOTOBTE 
759 IFT#=" "THEHIFPEER<FO>CHSITHENZE=SSI:FA=7: GOSLUBSORM 
738 IFSF=SANDZZCSTHENZZ=ZZ+1:5=1:5P=1 607067 
maz IFSPF=STHENET 
s1a SP=S5P+1:G0T0678 
820 IFSP=1THENE?E 
530 5PF=SP-1:60T06578 
549 IFZZE>LTHENZZ=ZZ-1 
5a GOTIETE 
S68 1 
ara GOTIE 
sad IFFEEKCFOEHSZ HZ "FA=14:GOSJBRRE 
570 GOTOS?E 
295 REM POKEN 
518 FOKEPO,ZE:FOKES42TE+PI. FA: RETURN 
1209 REM LEBERNEHMEN 
1216 DH= SaaE?7 
BE="": FÜRI=1TOS:FORJ=1TO8: 
FO=1924+J+3+£1+115#49 : IFPEEKCFOD=31 THENES 
a en 
& ;PRINTALS"ABITTE HARTEN" 
Ä :PRINT"8" :DN=DH+1 :PRINHTIN"DATA"ZH"S"LEFTELBELENCBEITLD 
FRINT" LBLODN="DN 
3 FRIHTDH+L"DATA-i" 
FRINT"RUM": Da 
REM PROG EM 
2 :FRINTALE" MEITTE MARTENS" 


:PRINT"S"DH"REM 

FR NTON+I"POKES + 
PRIMTIN+Z"FORISSTNI 
FRIMTIH+2"FÜKEL.SF 
FRINTDN+S#"FÜÖR 
FRIMTIH+Z"RERDA 
FRINTON+E"FORI= 

ei Eon Coole 21a" 


FRINT"G 
IFZAZ1 
FOKES4E :FORI=1 2301014595 TEFLE:PRINTT: GOTOILABE 
REM FEHSTE LoE i 
FREIHTLEFTECRIE. 
FEIHTTIBMLEFTE 
FEIHT'IBI'LEFTECHZ 
ETLFEM 
FOREE4E. 14 FOKESSA. 19: FORI=S1TOI:POKESS1+HLLSCHEST:FOKEI3S, 18: END 











Texas 99 





Der Pilzwurm 


Der erbitterte Kampf gegen den immer 
näher rückenden Pilzwurm ist schier aus- 
sichtslos. 


Er ist nur kurzzeitig zu verletzen, regeneriert aber 
immer wieder. Je öfter er an ein Hindernis stößt, desto 
schneller kommt er näher. Also müssen die Pilze weg, 
bevor er anstößt. 

Schleudern Sie dem Pilzwurm und den Pilzen Ihren 
Giftzahn entgegen. 


Wertetabelle: 
Pilz - 100 Punkte 
Wurmkörper - 200 Punkte 
Wurmkopf - 500 Punkte 


Gesteuert wird die Schlange mit den Cursorsteuerta- 
sten S und D und der Semikolontaste. 


August 1983 
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CHRAR<136, "183C7EFFF 
CHAR<144,"78FD767C7? 
CHAR<145,"42FFFFFFD 
CHAR<146, "1EBF6ES3EZ3 
CHRR<147,"42FF7E666& 
CHAR<152; "001010101 


KEY<O,KEY,STATUS>» 
ND<100,-3,5>» 





Frogpath 


Dieses Spiel ist dem bekannten Spiel 
Frogger nachgebildet. Das Modul Exten- 
ded Basic, sowie die Joysticks werden be- 
nötigt. 


Sie haben 10 Frösche zur Verfügung. Ihre Aufgabe ist 
es, von diesen Fröschen mindestens 5 zu retten. 
Gesteuert wird mit Joystick Nr. 2. Zunächst überquert 


FEHUNNEHEHUUN UN N UNUEHNE 
PROGRANMIERT VON 
LUTZ STRADNMANN 
3.5.1933 
ALLE RECHTE VORBEHAL- 
TEN 
KFFFHRFFHHHKFHFHFFHHNN 
78 CALL CLEAR::DISPLAY AT(1? 
18):"FROGPATH":: DISPLAY AT 
(24,1): "SCHWIERIGKEITSGRAD?" 
88 ACCEPT u VALI 
DATE(DIGIT) SIZE(2):V 
98 DIM C(14)::CALL CLEAR: :RA 
NDOMIZE 
18. CALL DELSPRITR(ALL) 
118 V=V-1::R=ß::FROE=19::RET 








man eine vierspurige Straße - hier darf man nicht über- 
fahren werden. Am Flußufer angekommen, muß man 
auf das Floß und die Tonnen springen, um den Fluß zu 
überqueren. 

Schließlich gilt es noch, eine Landebahn für Flugzeuge 
zu überqueren, bis man den Frosch gerettet hat. 
Dieses Spiel ist eines der schnellsten, die in TI Exten- 
ded Basic möglich sind, da viele Aufgaben an Sprites 
übertragen wurden. 

Es stehen insgesamt 40 Schwierigkeitsgrade zur Verfü- 
gung. Allerdings dürfte es hier niemand schaffen, auch 
nur einen Frosch zu retten. 

Ab Runde 5 erscheint am Ufer eine Schlange. der man 
am Besten aus dem Weg geht. Ab runde 7 patrouillert 
auch am anderen Ufer eine Schlange. 


d 
1?8 CALL SCREEN(12)::CALT, CO 
TOR(9,14,14,18,6,6,11,8,8,14 
16,1 \ 
13 DISPLAY AT(1,1):"PINKTE: 
" 


14 CALL MAGNIFY(3) 

15® CALL HCHAR(2,1,97,32)::C 
ALL HCHAR(22,1,97,32)!WAAGER 
ECHTE UMRANDUNG 

168 CALL HCHAR(21,1,184,32): 
:CALL HCHAR(3,1,184,32)::CAL 
L HCHAR(4,1,194,3)::CALL HCH 
AR(4,5,195,5)::CALL HCHAR(A, 
11,194,5) 





178 CALL HOHAR(4,17,184,5):: 
CALL HCHAR(4,23,1@4,5)::CALL 


3 
1) 
9405 7391 Adnpgpgg 


! SCHLANGE 


!PKW 
218 CALT, CHAR(1B4 ,"BARFÄSFFE 
BEFÄRTTORFFODFFARTFÄST FÄAFTA 
DET LDEDOEEPOREBERSEREFODOD" 
228 CALL CHAR(112,"SB3F7FFFF 
FTF3FÖFÄF3FTFFFFFTF3FOBBDFCR 
EFFFFFEFCFAFQROFEFFFFFEFOßB" 
)!ITONNEN AUF DEM FLUSS 
239 CALL CHAR(129,"BEdC1F372 
T2TETFFFRFFZFSFOFDEFWHKISISF 
CFEFEFFFFFFFFFFFFFFI EBCBSGGD 
")IRETTUNGSWAGEN 
248 CALL CHAR(124, "BOBHh307 
018307 FFFFFFFFFA4AAEEREBSBSC 
DE ISR [BURUBERPEBERELLAGEEEE" 
!UFO 
258 CALT, CHAR(128,"dQ7FS17F7 
DADAD7D7F18303C18ß@PHHAFFE39 
33B93939383 FFAC1E1EBcAgAg" )! 
DEB CALT OHAR(132, "Opong 
2 5 " 
1033 FFFFF3F@3@1 B0000099095387 
OF@FI FSFFFFFFFFF3FIFSTB3BRR" 
)! FLUSZEUG 
278 CALL CHAR(136,"42241 
0304218 BL DH IND 
IT LLDL LE PNEORRIEDLRORND 


2838 CALL SPRITE(#1,96,5,145, 
256,#2,96,5,145,178,#3,96,5, 
145,85 )1STRASSE 1.RSINE 

290 CALL SPRI"E(#4,124,7,129 
‚029,#5,124,7,129,135,#6,124 
‚7,129,4ß)!STRASSE 2.REIHE 
309 CALL SPRITE(#24,129,14 
13,175,#25,129,14,113,10@, 
6,128,14,113,18)!STRASSE 3 


R 
EIHE 

31® CALL SPRITE(#1ß,128,9,98 
‚168,211,128,9,98,70,#12,128 
‚9,98,25d)!STRASSE A.REIHE 
328 CALL SPRITE(#29,112,2,73 
‚25@,#21,112,2,73, 188)! FLUSS 
1.REIHE i 

338 CALL SPRITE(#19,194,13,5 


93 
28 
83 
u) 
8 


c 
n 
1 


; 
r2 





7,298,#18,194,13,57,128,#17, 

184,13,57,5@)!FLUSS 2.RSIHE 

348 CALL SPRITE(#15,132,8,33 
‚258,#22,132,8,33,125)!LANDE 

BAHN 

359 GOTO 87% ! 

369 R=ß::CALL SOUND(19@,789, 

ß)::CALL HCHAR(24,27,136):: 

F FROE=ß THEN 118 ELSE DISP 

LAY AT(24,26): FROE-1!NOCH VO 

RHANDENE FROESCHE 

378 ON ERROR 759 

339 X1=161::Y1=INT(RND#16ß)+ 

AB!ANFANGSPOSITION FROSCH 

398 on SPRITE(#16,136,16,X 
1,71 

4 CALL JOYST(2,Y,X) 

418 IF X=4 THEN X1=X1-8 ELSE 
IF Y=4 THEN Yi=Y1+8 ELSE IF 
Y=-4 THEN Y1=Y1-8 ELSE IF X 

=-4.\AND X1> 168 THEN 4ß@ ELSE 


43 

428 GOTO 47$ 

438 IF X=-4 THEN X1=X1+8::G0 
To 47$ 

44ß GOTO 45 Y 

45® CALL COINC(ALL,B)::FC=FC 
+1::IF B=-1 THEN 749 ELSE IF 
FO=16 THEN 469 ELSE 49ß 

468 FC=ß::H=-1%xH::GF=-H::CAL 

L a 
)+5)):2:CALL SOMND(-1,-5,9):: 
CALL MOTION (#27,9,GF#(INT(RN 

D#27)+6))::G0T0 aß 

a7ß IF X1<89 THEN 548 ELSE C 
LL LOCATE(Z16,X1,Y1)::CALL 

SOUND(-5,1809,5)::R=R+SGN(X) 
::CALL COINC(ALL,B)::IF B=-1 
TIEN 749 ELSE 4ßß 

4Sf IF X1=R9 THEN CALL MOTIO 

N(#16,8,8)::5070 A/A!STEUHRU 

NG FUER FLUSS 

498 CALL JOYST(2,X,Y) 

5A® IF Y=4 THRN:54B ELSE IF 
=-4 THEN 51@ ELSE IF X=-4 T 

HEN 578 ELSE IF X=4 THEN 599 
TLSE 48 

51% CALL POSITION(#16,X1,Y1) 
::R=R-1 

52% X1=X1+8::CALL LOCATE(#16 
X1,Y1)2:CALL MOTION (#16,9,C 
[R)J::CALL SOmD6 75, 908,5, 99 

5,6)::CALL COINC(ALL,B)::IF 

B=-1 THEN 488 ELSE 95 

539 IF X1=89 THEN 488 ELSE 7 


£ 
54 CALL POSITION(#16,X1,Y1) 


ı:R=R+1 
558 X1=X1-8::CALL LOCATE(#16 





X1,Y1)2:CALL MOTION(#16,$,C 
{a}: :CAtı SOUND( "5, 998,5,99 
5,6)::CALL COINC(ALL,B)::IF 
B=-1 THEN 488 ELSE 569 

ri IF X1=49 THEN 649 ELSE 7 
4 

576 CALL POSITION(#16,X1,Y1) 
::Y1=Y1%8 

588 CALL uni 
CALL SOUND{-5,988,5,995,6):: 
CALL COINC(ALL,B)::IF B=ß TH 
EN MB ELSE 488 

59% VALL POSITION(#16,X1,Y1) 
::Y1=Y1#+8::CALL LOCATE(#16,X 
ne An 
95,6)::CALL COINC(ALL,B)::IF 


B= THEN 749 ELSE 4sg 
6ßB CALL MOTION (#16,8,B)::CA 
LL LOCATE(#16 al 
INT(Y1+8)#8+8)::X1=INT 
a La 

! 


x1/8) 


6? CALL JOYST(2,X,Y) 

630 IF X1=33 AND Y=4 THEN GO 

SUB 689 ELSE IF Y=-4 AND X1= 

49 THEN 498 

649 IF Y=4 THEN X1=X1-8 ELSE 
IF X=4 THEN Yi=Y1+8 ELSE IF 
X==-4 THEN YizY1-8 ELSE IF Y 

=-4 THEN X1=X1+8 ELSE 668 
65B GOTO 728 

669 CALL COINC(ALL,B)::IF B= 
-1 TIIEN 748 

678 GOTO 628 

63 CALL GCHAR(4,INT(Y1/8)+1 
„D)::IF D<>32 THEN T4B!SPRUN 
G IN DEN SUMPF 

696 PUNKTE=PUNKTE+2@ß::DISPL 

AY AT(1,9)STZE(12):PUNKTE 
Ted CALL ee. 1,71) 
:: CALL DSLSPRITE(£16)::CALL 
HCHAR(X1/8,Y1/8,136)::GOTO 
738 

71 RETURN 

7? CALL en nlarl8t 
CALL ee A 
CALL COINC(ALL,B)::IF B=-1 T 

HEN 74 ELSE 61$ 

738 REM FROSCH WIRD UEBERFAH 
REN ODER FAELLT IN FLISS 

74® CALL DELSPRITE(#16)::FOR 
X=1 TO 5::CALL SOUND(129,18 
9,3,199,4)::CALL SOUND(24,2 
79,3,288,4)::NEXT X:: FROE=FR 
08-1 


758 IF FROE=@ THEN 99 

768 FOR X=1 TO 358::NEXT X:: 
GOTO 369 

778 REM FROSCH GERETTET 





788 FOR Z=1 TO 19::CALL SOUN 
De ir SOUN 
D(59,989,4,998,6)::NEXT Z::R 
ETT=RETT+1::IF RETT=5 THEN 8 


19 

798 GOTO 36ß 

8ßd REM 5 FROESCHE GERETTET 
81 FOR X=1 TO 4::CALL SOUND 
(178,458,2,468,3)::CALL SOUN 
D(129,789,3,798,3)::CALL SOU 

ND(129,678,3,688,2)::NEXT X 

828 DISPLAY BEEP AT(23,1):"G 

RATULIERE,SIE HABEN 5 FROE-S 
CHE GERETTET...VIEL GLUECK" 
836 FROE=19::RETT=ß 

84B FOR VERZ=1 TO 1ß99::NEXT 
VERZ::DISPLAY AT(23,1):" 


" 

85B V=V+1::1IF V>4ß THEN V=4ß 
!BESCHLEUNIGUNG DER FAHRZEU 

[639 

86® DISPLAY AT(1,26):V::CALL 
SOUND(399, 788,5, 798,6, 778,7 


‚-i, 

878 CALL HCHAR(4,4,32)::CALL 
HCHAR(4,19,32)::CALL HCHAR( 
4,16,32)::CALL HCHAR(4,22,32 
)::CALL HCHAR(4,28,32) 

388 FOR X=1 TO 3::CALL MOTIO 
N(#X,8,-(V+7))::NEXT X:: FOR 
X=4 TO 8::CALL MOTION(ZX,ß,V 
+5)::NEXT X 

82 FOR X=24 10 2%::04 

ION (#X,2,-(V+8)):: P 


ION 


918 
208} 


u 
De 


rs Ouison 


12 


C(10))::NTXT X:: FOR 
::CALL HOTION(#X, 

s:NEXT X 

<5 THEN 978 ELSE H=I 

)::IF H=ß THEN H=-1 

CALL SPRITE(#28,36,15,89 
,9,H#(INT(RND#22)+5)) 

IF v<7 THEN 978 ELSE GF= 
I::CALL SPRITR(#27,36,15,49 
‚59,8,GF#(INT(RND#28)+5)) 
97% GOTO 36% 

SAP REM KEINE 5 FROTSCHE GER 
EPTET 

998 DISPLAY AT(23,1):"NOCH E 
IN SPIEL?(J/N)*::ACTEPT BEE 
P AT(23,22):AB::IF Ad="J" OR 
AZ="j" THEN 98 ELSE STOP 


AO 7 HWO 
nann 
HÄASMIINON 
Stamm 
+ 


NANDVNidgne 
SNEANAN NM ZU S 
re 





Flugabwehrgeschütz 


Das Spiel ist für den TI-99/4A gedacht und kann in der 
Grundversion (also ohne Extended Basic und Joy- 
sticks) benutzt werden. Der Sinn des Spieles liegt darin, 
auftauchende Flugzeuge mit einem Flugabwehr-Ge- 
schütz abzuschießen. Dieses befindet sich am unteren 
Bildschirmrand. Die Höhe und die Geschwindigkeit. in 
der Flugzeuge auftauchen kann man vor jedem Spiel- 
beginn wählen (3 verschiedene Höhen, 4 verschiedene 
Geschwindigkeiten: also 12 Schwierigkeitsgrade). 


Es tauchen immer | - 4 Flugzeuge zufällig in der ge- 
wählten Höhe auf. Allerdings ändert sich mit jedem 
Auftauchen der Flugzeuge auch die Position des Ge- 
schützes. 


Geschossen wird mit der Leertaste. Nach 10 Fehlschüs- 
sen ist ein Spiel zu Ende. 





LIST 


129 HI=B 

11 CALL CHAR(128,"FFFFFFFFF 
FFFFFFF®) 

12 CALL CHAR(136, *1g1d98FFF 
F9IB1Bd1 A") 

138 CALL CHAR(144,"1818187E3 
CICICFF*) 

148 CALL CHAR(152,"dg1818181 
81818") j 

158 CALL CLEAR 

169 GOsUB 143 

178 PRINT TAB(2);"DAS SPIEL 
HAT DREI"::TAB(2) ;"SCHWIERIG 
KEITSGRADE."222::TAB(9) ;1-L 
EICHT"2:TAB(9) ;"2-MITTEL":: 
184 PRINT TAB(9) ;"3-SCHWER": 


222:TAB(2);"WAEHLEN SIE NUN! 
BER F „oo... 


.....0 


198 PRINT TAB(2P);"V.LA.83" 
2dd CALL SounD(589,718,8) 
218 CALL KEY(3,KEY,STATUS) 
22f IF STATUS=ß THEN 218 
238 IF KEY=49 THEN 26 

248 IF KEY=58 THEN 3ßg 

er: IF KEY=51 THEN 338 ELSE 





CALL VCHAR(9,2f,42) 
F=16 

GOSUB 1688 

G0TO 41g 

F=7 

GOSUB 1689 

GOTO 41g 

F=3 


f GosuB 168A 


CALL CLEAR 
H=1 
I=1 


£ ABCA=" TREFFER: 8 
EHLSCHUESSE: gi" 


393g 
“ 
Pen 
BY 


GoSUB 119f 

GoTo Spßg 

CALL CLEAR 

H=1 

I=1 

ABCA=" TREFFER: 


EHLSCHUESSE: gi" 
# GosuB 1198 


CALL HCHAR(2,2,128,31) 


# TALL HCHAR ee 


CALL VCHAR(2,32,128,23 
CALL VCHAR(2,2,128,23) 
RANDOMIZE 

E=INT (26%RND)+5 

CALL HCHAR(23,E,144) 
RANDOMIZE 

X=INT (26&RND)+5 
RANDOMIZE 

AzINT (26&RND)+5 
RANDOMIZE 

B=INT (26%&RND)+5 
RANDOMIZE 

C=INT (26&RND)+5 

CALL HCHAR 

CALL HCHAR 

CALL HCHAR 

CALL HCHAR 

GOTO 72g 

CALL HCHAR 

CALL HCHAR 

CALL HCHAR 

CALL HCHAR 

CALL HCHAR 

GoTo Sp 

FOR Y=1 TO CA 

IF CB=1 THEN 798 

CALL KEY(3,KEY,STATUS) 
IF STATUS=f THEN 798 
IF KEY=32 THEN 77 ELSE 


GosuB 828 


ö CB=CB+1 
Ä NEXT Y 


8 
818 


f cB=f 


GOTO 66J 





FOR G=22 TO F STEP -1 

CALL N ea 
ö CALL HCHAR(G,E,152) 

NEXT G Pr 

IF X=E THEN 1 

IF A=E THEN 1gg 

IF B=E THEN 1fdg 

IF C=E THEN 1fpg 

R=R+1 

S=R+48 

CALL HCHAR(1,32,5) 

IF QPHI THEN 94 ELSE. 95 


HI=Q 
IF R=1f THEN 1258 
FOR G=F TO 22 
CALL HCHAR(G,E,32) 
NEXT G 
99 RETURN 
1828 Q=Q+1 
1d1d IF Q>999 THEN 1f2f ELSE 
1838 3 
Q= 
CALL SOUND(3ffß,415,8) 
CALL SOUND sEn.622:B) 
CALL Sounn(38ß,523,f). 
AA=INT(Q/12f) 
# AB=INT( (Q-INT(a/1@)a1f 


B AC=Q-AARIff-ABa1f 
AA=AA+48 
AB=AB+48 
AC=AC+48 
CALL HCHAR(1,13,AA 
CALL HCHAR(1,14,AB 
CALL HCHAR(1,15, AC 
FOR G=F TO 22 
CALL HCHAR(G,E,32) 
NEXT G 
RETURN 
FOR J=1 TO LEN(ABC$) 
CO=ASC (SEGZ(ABC8,JI,1)) 
CALL HCHAR(H,I,CO) 
I=I+1 
NEXT I 
RETURN 
CALL CLEAR 
IF HI=Q THEN 127 ELSE 


CALL SOUNnD(3ßf,415,8 

CALL SOUND( 38,311, 

CALL Sounn( 39,523, 

& cALL Souno(3ßg,415,8 
PRINT TAB(8) ;"HOECHSTER 

GEBNIS :"tsHIsz222:3 

1328 PRINT TAB(9) ;"SPIELENDE 
ifnzz22® SIE HABENN;Q5"FLU 

GZEUGE"::" GETROFFEN"::S: 
1332 PRINT * WOLLEN SIE NOC 





HMAL"2S"N SPIELEN ? <J>cn>" 
Ir IF Q=1 THEN 1358 ELSE 1 
36 

1358 CALL HCHAR(15,25,32) 
1368 R=f 

1378 Q=ß 

1388 CALL SOUND(5AA,718,f) 
139 CALL KEY(3,KEY,STATUS) 
14fß IF STATUS=f THEN 139 
1418 IF KEY=74 THEN 118 

1428 IF KEY=78 THEN 1438 ELS 
E 1398 

1439 CALL CLEAR 

1448 PRINT TAB(7);"CoPpYRIGHT 
"2:TAB(7);"BY VOLKER LAMEK®; 
STAB(7)5NI9B3"s 2222235 

1458 FOR X=1 TO 6ApßB 

1468 NEXT X 

1478 END 

1488 CALL SCREEN( 
1498 CALL an 
15ß@ cALL CoLoR(2 


1314 CALL COLOR 

152 CALL COLOR 

1538 CALL COLOR 

154 CALL COLOR 

1558 CALL COLOR 

1568 CALL COLOR 

1578 CALL COLOR 

1588 CALL COLOR 

159 CALL COLOR 

1688 CALL COLOR 

1618 CALL COLOR 

162 RETURN 

168 CALL CLEAR 

1698 PRINT " WAEHLEN SIE NU 
N DIE"::® GESCHWINDIGKEIT,I 
N DER "::" DIE FLUGZEUGE AU 
FTAUCHEN":2® SOLLEN I"22:: 
1788 PRINT TAB(9);"1) LANGSA 
M"2:2TAB(9);"2) SCHNELL"::TAB 
(9);"3) SCHNELLER"::TAB(9);" 
4) AM SCHNELLSTEN"S23233 
1718 CALL SOunDd(5ßpß,72p,8) 
1728 CALL KEY(3,KEY,STATUS) 
1738 IF STATUS=ß THEN 172% 
174 IF KEY=49 THEN 184f 
1758 IF KEY=5ß THEN 182A 
1768 IF KEY=51 THEN 18ßg 
1778 IF KEY=52 THEN 1788 ELS 
E 1728 

1788 CA=4 

1798 RETURN 

18ff CA=6 

1818 RETURN 

182 CA=8 

1838 RETURN 

184 CA=15 

1858 RETURN 





Texas 99 
Monster Hunt 


Monster Hunt hat eine gewisse Ähnlich- 
keit mit Pacman, die jedoch wirklich nur 
sehr entfernt ist. 


Das Programm läuft auf der Grundversion des TI-99 
ohne Joystick. Es kann dabei in vier Richtungen gesteu- 
ert werden. Dies geschieht mit den Tasten 1 bis 4 
(l=links, 2=rechts, 3=hoch, 4=runter. Steuert man | 
und 2 mit zwei Fingern derlinken Handund3 und 4mit 
zwei Fingern der rechten Hand, so steuert man nach 
kurzer Gewöhnungszeit die Zielmarke, die in diesem 
Spiel die Form einer Raute hat, fast ebenso schnell, wie 
mit einer Fernbedienung. 

Nun zum Spiel und seinen Regeln: Zu Anfang hat der 
Spieler 500 Energieeinheiten. Wird die Zielmarke be- 
wegt, so benötigt man zwei Einheiten für jeden Schritt; 
steht sie, so zählt der Computer kontinuierlich um 1 
rückwärts. Man kann zu Anfang durch die Gänge mar- 
schieren und die blauen Punkte löschen. Jede Lö- 
schung bringt vier Punkte ein. Von Zeit zu Zeit (vom 
Zufallszahlen-Generator bestimmt, ertönt ein tiefer 











Ton und die Fortbewegung wird gestoppt, damit der 
Computer 6 neue Monster plazieren kann. 

Nun heißt es schnell sein, denn wenn man zu lange war- 
tet, verschwinden die Monster wieder. Man muß also 
die gelben, kleineren Monster schnell erreichen und 
vom Feld löschen, was jeweils 100 Punkte einbringt, 
den roten jedoch nicht zu nahe kommen: weil sie unge- 
nießbar sind und die Marke des Spielers verschlingen. 
Sollten die Monster einmal zuviel werden, so kann man 
auch auf einer Stelle kurz stehenbleiben und warten. 
damit die zuletzt aufgetauchten wieder verschwinden. 
Ideal ist es natürlich, so schnell wie möglich alle gelben 
zu löschen und die roten durch kurzes Warten wieder 
verschwinden lassen. Wenn einmal rote Monster alle 
Ausgänge versperren sollten, so kann man auch ein 
Mauerstück einreißen, was 200 Energie-Einheiten ko- 
stet. Überhaupt sollte man bei seiner Wanderung durch 
die verschiedenen Gänge aufpassen, daß die Energie 
nicht zu wenig wird. Nur wenn man den Energiespei- 
cher in der Mitte schnell genug erreicht, kann man 
wieder suf 500 Energieeinheiten auftanken,wobei jedes- 
mal ein Stück des Spielers verlorengeht. Wenn man al- 
lerdings mit seiner Energie sparsam umgeht und den 
roten Monstern ausweicht, spielt man an einer Runde 
u.U. 15 bis 20 Minuten. Übrigens: Punktzahl, Hihscore 
und Energievorrat werden ständig auf dem Bildschirm 
angezeigt; und das Ganze ist natürlich mit Soundeffek- 
ten untermalt. 





1b REM Ra 
28 REM &MONSTER-HUNT& 
3ß REM x * 
4ß REM x%& DEVELOPED x 
SA REM & BY A.ERTL x 
Ef REM ea 


1ıf@ RANDOMIZE 
118 CALL CLEAR 
128 CALL SCREEN(16) 


34 Homecomputer 


138 FOR Z5=1 Tn 4 
148 CALL COLOR(ZS,5,1) 
15@ NEXT ZS 


FOR Z5=5 TO 8 

CALL COLOR(ZS,9,1) 

NEXT ZS 

CALL CHAR(115,"182442818 
1422418") 

CALL CHAR (12, "dı8ac7Es 


August 1983 


ATETETE") 

CALL CHAR (13ß,"183C7EDAF 
FC3DBFF") 

CALL CHAR (14B, "ddpg183c3 
cıa") 

CALL CHAR (15ß,"FFC381818 
1B1C3FF") 

Ei CHAR (152, "ARABBÄFFF 
Fr" 

CALL CHAR (153, "181818181 
8181818") 

CALL CHAR(15a, "Bffdpfrer 
8181818") 

CALL CHAR (155 , "ddr 
F181818") 

CALL CHA® (156, "18181891F1 
Fr") 
Ay CHAR (157,"181818F8F 
g" 
CALL COLOR(11,5,1) 
CALL COLOR(1?,1?,1) 
CALL COLOR(13,19,1) 
CALL COLOR(14,8,1) 
CALL COLOR(15,3,1) 
CALL COLOR(16,13,1) 
CALL CLEAR 

VT=1 
HT=3 
PRIZENRKT" 
GcSUB 197% 
HT=13 
PRIZ="HISC" 
GosuB 197 








f HT=?4 


PRIZ="EN" 

GoSsUB 197 

RESTORE 

FOR I=1 TO ??2 

READ A,B,C 

CALL HCHAR(A,B,15?2,C) 
NEXT I 

DATA 3,4,26,23,4,26,5,6, 
3,5,11,5,5,18,5,5, 75,3 
DATA ?21,6,3,21,11,5,21,1 
8,5,21,25,3,7,8,18,19,8, 
18 

DATA 9,18,2,9,13,6,9,22, 
2,17,18,2,17,13,6,17,22, 
2,11,12,4,11,18,4,15,18, 
4,15,12,4 

FOR I=1 re 14 

READ A,B, 

CALL en, 8,153,C) 
NEXT 

DATA 

15,6, 
175,7,2,8,26,2,12,26,2,17 
26,2 

DATA: 712,11,3,12,22,3572; 
9,7,18,24, 7 








FOR I=1 TO 28 

READ A,B,C - 

CALL HCHAR(A,B,C) 

NEXT I 

DATA 3,3,155,3,38, 154,23 
‚3,156,23,38, 157,5,5,155 
‚5,28, 154,21,5,156,21,28 
„197 

DATA 7,7,155,7,26,154,19 
7,156,19,26,157,9,9,155 
‚9,24,154,17,9,156, 17,24 
‚157 

DATA 11,11,1555 11,22, 154 
‚15,11,156, 15,22, 157 

FOR I=1 TO 4 

READ A,3,6,0,E,F 

CALL HCHAR(A,B,14ß,C) 

CALL VCHAR(D,E,14f,F) 
NEXT I 

DATA 4,4,26,4,4,19,27,4, 

?6,4,29,19,8,8,18,8,8, 11 
‚18,8,18,8,25,11 

FOR I=12 TO 14 

CALL HCHAR(I,12,15#,18) 


GOSUB 

Gosu3 

GOSUB Ä 

DIM ma(6),M3(6) 
CONT=fß 

ZREHL=f 

CALL HCHAR(PA,PB,115) 
CALL SDUnD(5ß, sh, 4) 
CALL KEY(@,K, ST) 

IF ST THEN 1128 
EN=EN-1 

IF EN< THEN 164 
GOSUR 189 
ZAEHL=ZAEHL+1 

IF ZAEHL=5 THEN 2ß7ß 
IF RND<&.98 THEN 87 
CALL Sound (5ß,2Bß,3) 
FOR I=1 TO 6 
MA(I)=INT(I9&RND)+4 


f MB(I)=INT(?26%RND)+4 


187% 


188% 
1898 


- GCHAR (MA(I),MB(I), 
D 

IF D=32 THEN 1B4ß 

IF D>149 THEN 99 

NEXT I 

CALL N 2#,3) 
FOR I=1 TO 

CALL Heminklt), MB(I), 
(INT(2&RND)+12)*1P) 
CALL Snund (5f,3ß9,3) 
NEXT I 





CONT=1 

GoTOo 87% 

CALL HCHAR(PA,PB,32) 

ON K-48 GOTO 114ß,118f, 

1228, 1268 

PB=PB-1 

IF PBP1 THEN 129% 

PB=32 

GOTO 179 

PR=PB+1 

IF PB<£32 THEN 1298 

PB=1 

GoTo 129% 

"PA=PA-1 

IF PA>1 THEN 129 

PA=?4 

GOTO 129 

PA=PA+1 

IF PA<24 THEN 179 

PA=1 

EN=EN-2 

IF EN ß THEN 1648 

Gosus 189 

CALL GCHAR(PA,PR,E) 

CALL HCHAR(PA,F8B, 115) 
E=32 THEN 156 
E=15ß THEN 152% 
E=13f THEN 1578 
E=128 THEN 149 
E<>14ß THEN 1438 

CALL Sound (5ß,1Bff,4) 

P=P+4 

GosuB 182% 

SnTo 87 

CALL Snund (2ßf, 118,2) 

WAND=1 

EN=EN-2ßß 

IF EN<£ THEN 1644 

GOSUB 189% 

GoTo 87% 

P=P+1 Ay 

GosuB 182% 

GOTO 87 

CALL sound(1fff,2fAB,>2) 

EN=5Aß 

GOSUB 189% 

GOTO 878 

IF RNDY.95 THEN 97 ELS 

E 87 

CALL CLEAR 

FOR ZS=1 TO 8 

CALL COLOR(Z5,INT(13&RN 

D+2,1) 

NEXT ZS 

PRINT TAB(1B);"GAME OVE 

Rlszzz: 

PRINT "DU WURDEST VERSC 

HLUNGEN. "33333 

GOTO 166# 

CALL CLEAR 








PRINT "DEINE ENERGIE 18 
T ZU ENDE."sreszeess 
PRINT "PUNKTE:";P 


‚IF P<£H THEN 1788 


Gosus 218 

H=P 

PRINT "HI-SCORES"3H3 35: 

a "NOCHMAL? /I/ /N 
1} 

CALL KEY(@,K,ST) 

IF ST=f THEN 1728 

IF K=74 THEN 1 

IF K=78 THEN 178% 

CaLL Snund(3ßß,118,2) 

GOTO 1728 

CALL CLEAR 

PRINT "NEUSTART MIT ""R 

nm, men 

PRINT "aaa aaa 

RR: 

END 

gar UIl=1 TO LEN(STRZ(P) 


CALL HCHAR(1,6+UI,ASC(S 
EGA(STRE(P),U1,1))) 
NEXT UI 
RETURN 
FOR UI=1 TO LEN(STRE&(H) 


CALL HCHAR(1,17+UI,ASC( 
SEGZ(STRA(H),UI,1))) 
NEXT UI 

ENB=STRE(EN) 

IF LEN(ENZ)$2 THEN 193 
ENd="Ä"RENg 
GoTo 19f% 

FOR UI=1 TO 3 
CALL HCHAR(1,26 
SEGB(ENZ,UI,1)) 
NEXT UI 

RETURN 

FAR UI=1 TO LEN(PRIS) 
CALL HCHAR(VT,HT+UI-1,A 
SC(SEGZ(PRIZ,UI,1))) 
NEXT UI 

RETURN 

FOR UI=1 TO 6 

FOR UJ=-3 TO -1 

CALL SnunD(-1ßß,UJ,1) 
NEXT UJ 

NEXT UI 

RETURN 

IF CONT=@ THEN 85ß 

FOR UI=1 TO 6 

CALL HCHAR(MA(UI),MB(UI 


sm ASEL 


32 
CALL SOUND (5ß,4ßg,3) 
NEXT UI 

CONT=fß 

GoTo 85 





des Spieles, in einer bestimmten Zeit, größere Einnah- 
. men zu erziehlen. Dies ist jedoch nicht so einfach, da 
m 1S S- u e die Großhändler ebenfalls verdienen wollen und die 
Kunden etwas geizig sind. 
Die recht einfachen Spielregeln werden durch das 
Daß ein Computerspiel auch ohne Ac- | Programm erklärt. Da das Programm ca 8K belegt und 
. 2 R die HGR-Grafik benutzt, muß der Basic Pointer vor 
tion, Raketen und Pistolen interessant | dem Laden bzw. Eintippen durch POKE 103.0: POKE 
H . n 104,64 heraufgesetzt werden. Besitzer eines Disk-Lauf- 
page kann, das beweist dieses Apple u werkes können dies mit einem Exec-File, das nach dem 
Spiel, Imbiss-Bude. Booten aufgerufen wird, automatisieren. Die beiden 
Poke Befehle dürfen nicht in einem Basic Programm 
In diesem Spiel besitztman einen kleinen Imbiss-Stand | enthalten sein. 
mit einem Anfangskapital von 10 DM. Es ist das Ziel | Und nun, verkaufen Sie Ihre Pommes! 





REM KRERRKRRÄRRKRKRRRRÄRHRRRRRRHERER 
IMRISSBUDE (EC) F.BRALL 


REM * * 
REM * * 
REM * VOR EINTIFFEN FOLGENDE * 
REM * FOKE DURCHFUEHREN: * 
REM * FOKE 193,@:FOKE1@4,64 * 
REM KAEAHRRRHKHRHEHKREHKRRHRRRR RR 
REM 
ONERR GOTO 496 

HGR : HOME 

DIM X (99) 

1:T$ = "MONTAG":SK = 1944: TE = 15 

HCOLOR= 3: REM WEISS 

POEE 232,86: FOKE 233,3 

FOR I = 768 TO 873: READ E: FOKE I,E: NEXT 

DATA 1,9,4,9,53,61,63,46,45,62,63,53,53, 93, 61,63, 60,62,62,62,62,62,4 
6,62,46,62,46,38,36,12,128,128,44,44,37,45,45,46,52,62,45,62,53,53,47 
‚03, 223,27,128,128,128,128,56 

DATA 55,47,45,62,63,46, 45, 62,63,46,45,59,47,45,63,63,62,46,62,46,62, 
62,46,62,62,46,1@9,1,128,128,128,128,128,128,128,128,8,53,55,535, 61,46 
‚62,46,62,46,62,45,5,8,9,45,5 

HFLOT 8,158 TO 279,158 

REM STAND ZEICHNEN 

HFLOT 184,148 TO 219,148 TO 219,11@ TO 184,119 TO 189,148 

HFLOT 169,15& TO 17@,19@G TO 259,198 TO 249,15% 

HFLOT 164,196 TO 269,198 TO 269,181 TO 169,191 TO 169,192 TO 269,161 
FOKE 18697,47: FOKE 11717,33: FPOKE 12741,39: POKE 13765,33: POKE 1478 
9,47 

FOEE 198694,7: FOKE 11718,1: FOKE 12742,7: FOKE 13764,4: POKE 14799,7 
HFLOT 1974,88 TO 228,88 TO 224,94 TO 194,94 TO 194,88 

HFLOT 269,94 TO 200, 180 

HFLOT 213,94 TO 213,108 

FOR I = 111 TO 139: HFLOT 181,I TO 289,1: NEXT 

VTAB 22: FRINT "IMRISS-RBUDE (C)BEI F.BRALL" 

VTAR 1: GET E$ 

GOSUR 25 HOME 

VTAR Z2: HTAR 1: INFUT "WIEVIEL WOCHEN MOECHTEN SIE ARBEITEN ?"3 ZW 

IF Zw < 1 QR ZW > 38 THEN 32 

REM #*#%*%* RILDSCHIRMMASEE ##* 

HOME 

FRINT "TAG: TEMFERATUR: " 

FRINT PRINT 2 FRINT "KASSENINHALT:" 

FRINT 2 FRINT 

FRINT "WARENVORAT: VERKAUFSPEFREISE" 

FRINT 








418 PRINT "SCHOKOLADENEIS: STUECK 

428 FRINT "ZITRONENEIS STUECK 

438  FRINT "WALDMEISTEREIS STUECK 

448 . FRINT "COLA FLASCHEN 

458  FRINT "ZIGARETTEN STUECK 

468 PRINT "BRATWUERSTE STUECK 

478  FRINT "FOMMES FRITES TELLER 

48@# FRINT 2 FRINT " 

494 GOSUR 71@: HTAB 1 

s98 IF T=& ORT = 7 THEN 

518 VTAR 21: FRINT "MOECHTEN SIE ETWAS EINKAUFEN ? "3 

528 GET E$ 

539 IF E$ = "I" THEN GOSUR 919: GOTOD 568 

549 IFE$ < > "N" THEN 528 

559  GOSUR 719 

56% VTAR 21: HTAB 1: PRINT "MOECHTEN SIE IHRE PREISE AENDERN ?"3: GET 
5728 IF E$ = "I" THEN GOSUR 1288: GOTO 598 

582 IF E$ < > "N" THEN 568 

574 GOSUR 1396 

j=1710] 1: IFT= 
#18 IF THEN T$ 
620 IF THEN T$ 
638 IF T$ 
648 IF T$ 
#58 IF T$ 
68 IF T$ 
678 IF T$ 


THEN T = 1:W W 1: IF W= ZW THEN 2438 
"MONTAG" 

"DIENSTAG" 

"MITTWOCH" 

"DONNERSTAG" 

"FREITAG" 

"SAMSTAG" 

"SONNTAG" 


nun + 
I u u 


686 Z1 = 49: GOSUR 1269: TE 
7a GOTO 
788 REM *%*%* RILDSCHIRMAUSGABE **%* 


718 TEXT 

728 HTAR 5: VTARB 1: FRINT " "32 HTARB 5: PRINT T$%;3 

738 HTARB 28: FRINT " "32 HTAB 28: PRINT TE" C" 

748 FRINT = FRINT 2 HTAR 14: PRINT " "32 HTAR 14: PRINT 
K/ 1928" DM" 

7598 VTARB 11: HTARB 17: iö "32 HTAB 17: FRINT Wi; 

768 HTAB 34: PRINT HTAR 34: FRINT V1 

778 HTAB 17: PRINT HTAR 17: FRINT W253 

788 HTARB 34: FRINT HTAB 34:2 FRINT V2 

7974 HTARB 17: FRINT HTAB 17: PRINT W335 

808  HTARB 34: PRINT HTARB 34: PRINT V3 

816 HTAB 17: FRINT HTAB 17: FRINT W435 

828 HTAB 534: FRINT HTARB 34: PRINT V4 

838  HTAB 17: FRINT HTAB 17: FRINT WS3 

848 HTAB 34: FRINT HTAR 34: FRINT V5 

858  HTARB 17: FRINT HTAB 17: FRINT W653 

858 HTAR 34: PRINT HTAB 34: PRINT V& 

878 HTAB 17:2 FRINT HTAB 17: PRINT W735 

888 HTARB 34: FRINT 32 HTARB 34: FRINT V7 

8978 VTAR 28: FOR I 1 TO 199: PRINT " "5: NEXT Iz HTAB 1 

Ba RETURN : REM BILDSCHIRMAUSGABE IST ABGESCHLOSSEN 

918 REM *%*%* WAREN EINKAUFEN ##*%* 

728 GOSUR 718 

938 Zi = 19:72 = 498 

7446 IF TE > 5 THEN Zi = 20:72 = 45 

953 IF TE > 18 THEN Z1 39:72 Sa 

948 IF TE > 15 THEN Z1 49:72 17] 

978 IF TE > 28 THEN Z1 48:72 78 

sed IF TE > 38 THEN Z1 Ss0:72 78 

9798 IF TE > 35 THEN Z1 8390:72 198 

1898 IF T 5 THEN Zi = Zi + 15:2Z2 = Z2 + 15 

19194 GOSURB 126@:H1 = Z: GOSUR 124@:H2 = Z: GOSUR 126@:H3 = Z: GOSUR 1268: 


I u 
u u u Ei 





H4 = 7 + 18 

1928 GOSUR 126@:H& = 1598 — Z: GOSUB 126@:H7 = 178 - 7:71 
12649:H5 = zZ * 5 

1834 VTAR 21: PRINT "WIEVIEL SCHOKOLADENEIS ZU "Hi"FF 

1040 IFE %* Hi > K THEN HTAB 1: GOTO 1958 

19598 WI = WI + EEK =K - (Hi * E): GOSUR 718 

1068 VTAB 21: PRINT "WIEVIEL ZITRONENEIS ZU "H2"PF "53: INPUT E 

1978 IF E x* H2 > K THEN HTAB 1: GOTO 1968 

1080 W2 = W2 + E:K = K — (H2 * E): GOSUR 718 

18598 VTAR 21: FRINT "WIEVIEL WALDMEISTEREIS ZU "HSZ"PF"53: INPUT E 

11@@ IF E %* HS > K THEN HTAB 1: GOTO 1998 

1119 WE = WS + EE:K=K - (HS * E): GOSUR 718 

1126 VTAR 21: PRINT "WIEVIEL FLASCHEN COLA ZU "HA4"PF"3: INPUT E 

1139 IF E * H4 > K THEN HTAR 1: GOTO 1129 

1148 W4 = W4 + E:K = K — (H4 * E): GOSUR 719 

1159 VTARB 21: PRINT "WIEVIEL FACK. ZIGARETTEN ZU "HS"PF"5: INPUT E 

1164 IFE * HS > K THEN HTAR 1: GOTO 1158 

1178 WI = WI + EEK =K - (HS * E): GOSUR 7198 

118@ VTAR 21: PRINT "WIEVIEL BRATWUERSTE ZU "H&"PF"3: INPUT E 

1194 IF E * H& > K THEN HTAB 1: GOTO 1188 

12@90 WE = Wa + EiK = K - (H& * E): GOSUR 719 

1218 VTAR 21: PRINT "WIEVIEL TELLER POMMES ZU "H7"PF"5: INPUT E 

1228 IFE* H7 > K THEN HTAB 1: GOTO 1219 

1258 W7 = W7 + EEK = K - (H7 * E): GOSUB 719 

1248 RETURN 

1259 REM #*%%* ZUFALLSZAHL *%*%* 

1268 zZ = ( INT C RND (1) * (Z2 - Z1)) + Zi): RETURN 

1278 REM x*%*%* PREISE EINGEBEN #**%** 

1288 GOSUR 71@ 

1296 VTAB 21: HTAR 1: PRINT "PREISE BITTE IN "3: INVERSE : PRINT "PFENNIG 
EN"5= NORMAL = FRINT " ANGEBEN !" 

13949  VTAR 22: INPUT "SCHOKOLADENEIS ?"5V1: GOSUR 719 

1318 VTAR 22: INPUT "ZITRONENEIS ?"3V2: GOSUB 71% 

1328 VTAR 22: INPUT "WALDMEISTEREIS ?"3V3: GOSUR 718 

1339  VTAB 22: INPUT "COLA ?"3V4: GOSURB 718 

1248 VTAR 22: INFUT "ZIGARETTEN ?"5V5: GOSUR 718 

1359  VTAR 22: INFUT "BRATWURST ?"3V&6: GOSUB 718 

1368 VTAR 22: INFUT "FOMMES FRITES ?"3V7: GOSUB 719 

157& RETURN 

1588 REM #*%*%* KUNDEN SIMULIEREN **%* 

1598 BK = S@:EK = 1@:ZK = 18 

1488 IF T = & THEN BE = 48:EK = 15:ZK = 

1418 IF T= 7 THEN BE = 49:EK = 20: 7ZK = 

1428 VE v1: IF VE > V2 THEN VE = v2 

14309 IF VE > VZ THEN VE = v3 

1448 EEK = EEK - INT (VE / 19 

145@ VR = V&6: IF VR > V7 THEN VR = v7 

1444 = BK - INT (VR / 29) 

1478 = ZE — INT (VS / 199) 

1488 EK = EK + INT (TE / D:BK = BK- INT (TE / 2 


1494 FOKE - 163864,@: FOKE - 16297,@: FPOKE - 1643969,@ 

1599 VTARB 21: HTAR 1: PRINT "IHR IMBISS DEFFNET DIE ROLLAEDEN !" 

1519 HCOLOR= 8 

1524 FOR I = 139 TO 111 STEF - 1: HPLOT 181,1 TO 299,1: PRINT ""37 NEXT 


153 GOSUR 894 

1549 VTAB 24: HTAB 38: FRINT "TEMP.="TE" C"; 

1554  HCOLOR= 3 

15698 Ak = ZK + BK + EK 

1578 IF AK < 2 THEN FOR I = 1 TO 19998: NEXT I: GOTO 1698 

1588 GOSUR 2178 

15784 FOR U = 1 TO Ak: GOSUBR 1436: GOSUB 2329: GOSUB 22@@: NEXT 





FOR I = 111 TO 139: HPLOT 181,I TO 289,1: PRINT ""32 NEXT 
RETURN 
REM *%*%* KIINDE KAUEFT #*#*#* 
= 1:Z1 = 1:72 = 1@: GOSUR 124@:E IF Z= 2 THENS 
Z1 = 1:72 = 9: GOSUR 1248 
VTAR Zi: HTAR 1 
ON zZ GOTO 15879,1769,1849,1729,1979,2020,72090,167@ 
IF EE = @ THEN 1438 
IF E = EZ THEN 1718 
IF v1 - v2 > 2&6 THEN 1768 
IF v1 - VZ > Z@ THEN 1846 
FRINT "KUNDE: "S" SCHOKOLADENEIS BITTE !" 
IF Wi = & THEN PRINT : PRINT "AUSVERKAUFT":EE = EK — 1: GOTO 1758 
IF S > Wi THEN FRINT : FRINT "DAS IST DAS LETZTE ":K=K + (Wi * vi 
J)zwi = S:EK = EK - 1: GOTO 1756 
wi Wi - SSK=K + (S *& VII:IEK=EK - 1 
1 TO 288: NEXT J: RETURN 
ä THEN 1638 
THEN 1898 
- v1 > 28 THEN 1647@ 
IF v2 - VZ > 2@G THEN 1848 
FRINT "KUNDE: "S" ZITRONENEIS BITTE !" 
IF W2 = & THEN PRINT : FRINT "AUSVERKAUFT":EK = EK — 1: GOTO 1759 
IF S > W2 THEN FRINT : FRINT "DAS IST DAS LETZTE":K = K + (W2 * v2) 
:W2 = G@:EE = EE - 1: GOTO 1759 
W2 = W2 - SK=K + (5 * V2):EK = © — 1: GOTO 17598 
IF EEK = @# THEN 163# 
IF E= 5 THEN 1886 
IF v3 - v1 > 28 THEN 1674 
IF v3 - V2 > 28 THEN 176@ 
PRINT "KUNDE: "S" WALDMEISTEREIS !" 
IF W3 = @ THEN PRINT =: FRINT "AUSVERKAUFT":EK = EK - 1: GOTO 1758 
IF S > WS THEN PRINT : PRINT "DAS IST DAS LETZTE":K = K + (WZ * VI) 
zW3 = @:EK = EK — 1: GOTO 1756 
WI = WI - S:SK=K + (S * VD:ER . - 1: GOTO 1758 
IF EK = @ THEN 143@# 
FRINT "EUNDE :2"S" COLA BITTE '!" ” 
IF W4 = @ THEN PRINT : FRINT "AUSVERKAUFT":EK = EEK - 1: GOTO 1758 
IF S =» W4 THEN FRINT : FRINT "DAS IST DIE LETZTE":K = K + (W4 * V4) 
:W4 = B:EKE EEK - 1: GOTO 1758 
2 =K + (5 * VA):EK © - 1: GOTO 1758 
HEN 1438 
"Ss" SCHACHTEL ZIGARETTEN" 
FRINT : FRINT "LEIDER AUSVERKAUFT":ZK = :- 1: GOTO 


FRINT z FRINT "DAS IST DIE LETZTE":K = K + (WS * V5) 
© — 12 G0TO 1754 
K+ (S * VSI:ZK = ZE — 1: GOTO 1756 
1638 
3 THEN 2458 
- V7 = 36 THEN 2494 
"KUNDE: "5" BRATWUERSTCHEN !" 
= # THEN FRINT : FRINT "LEIDER AUSVERKAUFT":BE = © — 1: 60T0 


FRINT : FRINT "DAS IST DIE LETZTE":K =K + (WE * V&) 
 — 1: GOTO 1756 
K+ (S &* VE)zBE = BE - 1: GOTO 1758 
1438 
2128 
7 v > Z8 THEN ZE2 
FRINT "KUNDE: "S" TELLER FOMMES BITTE !" 
IF W7 = 8 THEN FRINT : FRINT "AUSVERKAUFT"IEK 





2308 
2318 
ee] 
2238 


2348 


2359 


2368 
2378 
2289 
2298 
249% 
2418 
2429 
2439 


Fi 
<u 

zeud 
zig 


2620 


2624 


2648 


=» W7 THEN FRINT : PRINT "DAS IST DER LETZTE":K = K + (W7 * v7) 
9: BE BE - 1: GOTO 175@ 
W7- SK=K + (5 * VYI:BK = BK GoTo 
REM *%*%* KUNDEN ANSTURM **%* 
SCALE= 1: ROT= 1 


TOD AK:X(D) =D * ( — 18): NEXT :Y 

E= PE { 163356):E = PEEK ( — 14356) 

FOR D TO AK 

IF XD) > 1 THEN 2288 

IF X(9) © 15 THEN 2256 

XDRAW 1 AT X(Q),Y 
xD) = X(D) + 18 

IF X(D9) < 15 THEN 7288 
XDRAW 1 AT X(D),Y 
NEXT 

IF XP) > 188 THEN F=F + 1: RETURN 

IF LI = AK THEN RETURN 
GoTO Z2a# 
GOSUR 898 
VTARB 24: HTAR 3: FRINT "TEMP.="TE" C"; 

=p-1 

xl) 

XDRAW 1 AT X,Y 

XI =X(D + 10 

= X(D 

IF X(T) > 26@# THEN RETURN 

XDRAW 1 AT X,Y 

GOTO 2368 

REM #*%*%* AUSWERTUNG *%*%* 

HOME : PRINT "STATISTIK:" 

FRINT 2 PRINT : PRINT : PRINT "SIE HABEN ES IN "ZW" WOCHEN GESCHAFT 
DEN" 

FRINT ; FRINT "KASSENINHALT VON 1@ AUF "5K / 1@@" DM ZU": PRINT : PRINT 
"ERHOEHEN. " 
W = (K / ZW / 1086 

IF zw = 1 THEN PRINT FRINT 2 FRINT "DAS IST EIN WOCHENLOHN VON 

"WL" DM" 

PRINT : FRINT : IF WL > Z6@ THEN FRINT "SIE SIND DIE FERFEKTE ”TANT 
E EMMA” ı": GOTO 2528 

IF WL > 208& THEN FRINT "HERR ROSENTAL WUERDE SAGEN "SPITZE’ !": GOTO 
2328 

IF WL > 5@ THEN PRINT "MAN KANN’S NOCH SCHLECHTER MACHEN !" 

IF WL < 51 THEN PRINT "ICH WILL JA NICHTS SAGEN ABER „.." 

TEXT : GET E$: END 

REM *%** ANLEITUNG ##*%* 

HOME 2 FRINT "SFIELANLEITUNG =" 

PRINT : FRINT "IN DIESEM SPIEL WERDEN SIE ZUM BESITZER": PRINT "EINE 
R IMBISS-BUDE. IHRE AUFGABE BESTEHT" 

FRINT "DARIN, IN MOEGLICHST KURZER ZEIT,": PRINT "MOESLICHST VIEL GEW 
INN ZU ERREICHEN. " 

FRINT "DIES IST NUR DURCH GESCHICKTE": FRINT "KALKULATION MOEGLICH": 
FRINT "FOLGENDE FARAMETER SOLLTEN SIE BEI DER": FRINT "FESTLEGUNG IH 
RER FREISE BEDENKEN: " 

FRINT 

FRINT " TEMFERATUR" 

FRINT " WOCHENTAG BZW. WOCHENENDE" 

FRINT " HAENDLER ANGEBOTE" 

FRINT : PRINT "DAS EINKAUFEN VON WARE IST NUR AN WERK-": FRINT "TAGE 
N MOEGLICH !" 

TEXT 

GET E$: RETURN 





Carace 


Ein farbiges Autorennspiel für den Apple 
II. Sie steuern Ihr Auto durch Hindernis- 
se und versuchen, soweit wie möglich zu 
kommen. 


Fahren Sie mit Ihrem Auto aufeine stark verschmutzte 
Straße. Ihnen kommen alle möglichen Gegenstände 
entgegen. Mit der Zeit nehmen die Hindernisse zu. 
Später kommen auch noch Schlaglöcher hinzu, die 
nach einer Weile nochmals zunehmen. Ihnen bleibt 
nichts anders übrig als auszuweichen. 

Mit Paddle 0 wird das Auto kontrolliert und Ihre Auf- 
gabe ist es, soviel Meter wie möglich zurückzulegen. 
Eine Highscore wird automatisch geführt. 

Noch ein Tip: Es kommt nur zu einemUnfall, wenn ein 
Hindernis frontal gerammt wird. Wenn Sie seitlich in 
einen Gegenstand fahren, so wird dieser überrollt. 


5 REM #* CARACE #* 

10 GOSUR 520 

20 Fi = „4:F2 

530 NU = O:EI = 

ao Mi 255:M2 

So SC = S:5W = 

&0 LB = S:RB = 

70 P= 10:P0 = 

80 GOSUR 550 

90  VTAB 22: PRINT "METERS YOU HAVE DRIVEN SO FAR": VTAB 23 
109 6R 

110 COLOR= 12: FOR I = NU TO 3: VLIN NU,59 AT I: VLIN NU,S9 AT 56 + I: NEXT 


120 COLOR= 15: VLIN NU,39 AT 4: YLIN NU,39 AT 35 
130 COLOR= SC: FOR I = NU TO 39: HLIN 5,34 AT I: NEXT 
140 CN = CN + EI 
150 IF CN © DR THEN 230 
160 CN = NU:FC = FC + EI 
170 IF FC = F2 THEN RF = RF + FI:FC = NU 
1890 IF RF > Zu THEN IF RND {EI > Fi THEN COLOR= Nu: PLOT INT ( RND 
(1) = SW) + SE,DR 
170 IFRF > 4 THEN IF RND {ED > Fi THEN COLOR= NU: PLOT INT CRND ( 
1) # 54) + SEJEI 
200 IF RND (ED > RF THEN 230 a 
2198 = INT ERND {ED #* FB) + EIER = INT ( RND (1) * SW) + SE 
ON 5 GOSUB 410,420,430, 440,450, 460, 470,480, 490,500, 510 
FD = PDL {NW BEE 
IF ED = FA THENF = P IFP > RB THEN® = RB 
IE PDEFSTHENP=PF : IEP<&LBTHENP=LB 
IF F= FO THEN 30 
COLOR= SC 





IF F > FO THEN 300 
PLOT FO + EI,356: FLOT FO + ZW,37: PLOT FO + EI,S8: FLOT FO + ZW,39: GOTO 
310 
FLOT FO + EI,S56: PLOT PO,37: FLOT FO + EI,3S8: PLOT P0,39 
COLOR= DR: HLIN P,P + ZU AT 39: PLOT P + EI,38: HLIN P,P + ZW AT 37: 
FLOT F + EI,S6 
D FO=P 
» IF SCRNE F,F?7) + SERN{ P + EI,RF?) + SCRNEP + ZW,F7) < > SD THEN 
Bi=19) 
FOKE M1,P: CALL M2 
» COLOR= SC: HLIN LB,RB AT EI 
» FF= FF + Fö: HTAB EI: FRINT PP3 
GOTO 140 
FOR I 1 TO 10: CALL 861: NEXT 
IF FF HS THEN HS = PP 
GOTD 70 
COLOR= 1: PLOT R + EI,NU: HLIN R,R + ZW AT EI: FLOT R + EI,ZW: RETURN 


COLOR= 2: PLOT R,EI: PLOT R + ZU,EI: PLOT R + EI,Zu: PLOT R,DR: PLOT 

R + ZW,DR: RETURN 

COLOR= 4: PLOT R + EI,NU: PLOT R,EI: PLOT R + ZW,EI: PLOT R + EI,ZW: 
RETURN ; 

COLOR= 9: HLIN R,R + ZW AT OÖ: HLIN R,R + ZW AT EI: HLIN R,R + ZW AT 
ZW: RETURN ö 

COLOR= 6: VLIN NU,ZW AT Rz: VLIN NU,ZW AT R + ZU: RETURN 

COLOR= 7: HLIN R,R + ZW AT EI: HLIN R,R + ZW AT DR: RETURN 

COLOR= 8: PLOT R,EI: PLOT R + ZW,EI: PLOT R,DR: PLOT.R + ZW,DR: RETURN 


COLOR= 14: HLIN R,R + ZW AT O0: FLOT R,EI: PLOT R + ZW,EI: HLIN R,R + 
ZW AT ZW: RETURN 

COLOR= NU: HLIN R,R + ZW AT EI: RETURN 

COLOR= 12:. FLOT R,EI: PLOT R + EI,ZW: PLOT R + ZW,DR: RETURN 

COLOR= 15: HLINR + EI,A,R + ZW AT O: HLIN R,R + ZW AT EI: HLIN R,R + 
EI AT ZW: RETURN 


FOR I = 768 TO 877: READ A: POKE I,A:' NEXT : RETURN 
DATA 166,255, 189,80,5,72,252,189,80,5, 72,232,189,80,5,72,160,19,152, 
52,71,248, 165,38, 141,53,3,165,39,141,54,3,136, 152,32, 71,248,165, 38,14 
1,50,5,165,39,141,51,3,162,35,189,0,4,157,128,4,202,224,6,176,245 
DATA 192,1,176,210,166, 255,232, 232,104, 157,80,5, 202, 104, 157,80,5,202 
‚104,157,80,5,169,85,162,29,157,5,4,202, 16,250, 96, 162,128, 138,168, 136 
‚234,234,234,208,250,141,48, 192,202, 208, 242,96 
TEXT : HOME 
Ko E Bu zn = 2 2272 272 2 2 2 32 12322 272727272 2222227272 22.222,22 222222 
S2$ = "* *" 
PRINT Si$ 
FOR I = 1 TO 22: PRINT S2$: NEXT 
PRINT Si1$; 
4: HTAB 17: INVERSE : PRINT "CARACE": NORMAL 
6: HTAB 11: PRINT "BY ROBERT TOLKSDORF" 
9: HTAB 5: PRINT "USE FADDLE (0) TO MOVE YOUR CAR" 
12: HTAB 9: PRINT "AVOID ALL OBSTACLES !ıı" 
15: HTAB 15: PRINT "GOOD LUCK !" 
18: PRINT "* SCORE: ";PP5" METERS" 
19: PRINT "* HI-SCORE: "5HS5" METERS" 
22: HTAB 14: PRINT "PRESS ANY KEY 
- 16584,128 
GET A$: HOME 
PP=0© 
RETURN 





ZX-Bundesliga 


ZX-Bundesliga ist eines der komforta- 
belsten auf dem Markt, und eines der 
schnellsten. 

Wenn manche Programme nur eine Ta- 
belle errechnen können, nämlich die Ge- 
samttabelle, so konnte dies eigentlich nur 
von Leuten erstellt sein, die keine irgend- 
wie geartete Beziehung zum Fußball ha- 
ben. Dieses Programm bietet jedoch sage 
und schreibe 10 verschiedene Tabellen! 
Dennoch werden nur 10K an Speicher- 
platz verbraucht! 

Wie kommen diese 10 Tabellen nun zustande? Da sind 
zunächst einmal die Gesamt-, Heim- und Auswärtsta- 
belle in echter Reihenfolge. Dazu kommen noch die 
Heim- und Auswärtstabellen in der Reihenfolge der 
Gesamttabelle, wie sie in Sportjournalen zu finden 
sind. Diese 5 Tabellen können nun wahlweise in der 
Darstellung verändert werden. Entweder mit voll aus- 


geschriebenen Vereinsnamen, aber ohne gewonnen, 
unentschieden und verlorene Spiele. Oder aber mit 


SöYE ünäge" 
PRINT "ANZAHL DER VEREINE.“ 


S+=+ZZ 
nS 


IOIXDIMIOND 
Xnanliannnttl 
DD MXAXPZZZZA-Z 
IN ARr Pr“ 
KRXKOU “PO 

= 


BOINNIPONSNANINEBRBUNNDH 


REM ERGEBNISSE EINLESEN Uho 
Sarsı LE EINTRAGEN 


L5 

PRINT "ANZAHL DER SPIELE? 
28 INFUT x1ı 

@ H x1 

S R X=1 TO xı 
so IHPUT x$ 
= 
& 
5 


use BEZUG UVUUUNMMIUNE 
Sa 


ULETEN EAN 


LET XI=UÜURAL X 
PRINT AT 23X+1.0; BES (XI); "-" 


INPUT W$ 


Lei S=VAL YE 














einer Drei-Buchstaben-Abkürzung für jedes Team, 
dann aber mit gewonnenen, unentschiedenen und ver- 
lorenen Spielen. 

Der kombinierte Komfort ist leider durch die 32 Zei- 
chen je Zeile unmöglich. Aus Gründen der Rationali- 
tät wurde auf speicherfressende und meiner Meinung 
nach unnötige Extras wie Anzeige der Tabellen der 
ganzen Saison oder Speicherung der Ergebnisse aller 
Spieltage verzichtet. Wer jedoch meint, dieses oder ähn- 
liches haben zu müssen, dem ist es durch die Bedie- 
nungsanleitung leicht gemacht, diese selbst zu ergän- 
zen. 

Das Berechnen der neuen Tabellen plus Ausdruck dau- 
ert etwa 30 sec (auf dem Bildschirm), im Gegensatz zur 
doppelten bis dreifachen Zeit bei erheblich aufwen- 
digeren 'Superprogrammen'. Die Berechnung der neu- 
en Tabellen dauert dabei aufgrund eines der Bundesli- 
ga besonders angepaßten Sortierprogramms nur 10 sec. 
Der Ausdruck auf dem ZX-Printer dauert dann weitere 
10 sec. Diese Möglichkeit ist übrigens die sinnvollste 
Anwendung des Programms, obwohl es auch ohne 
‘Hardcopy' geht. 

Vereinsnamen sind übrigens frei wählbar, sodaß das 
Programm leicht für die Saison 83/84 oder für die 2. 
Liga umgeschrieben werden kann. 

Mit einer ausführliche Beschreibung des Programms 
und mit Hilfe der Listings dürfte es für ein wenig ge- 
übte Programmierer keine Hürde sein, an dem Pro- 
gramm eigene 'Verbesserungen’ durchzuführen. 

Aus Platzgründen mußte aber auf den Abdruck in 
diesem Heft verzichtet werden. Wer diese detaillierte 
Beschreibung (5 DIN-A-4-Seiten) benötigt, kann sie 
gegen 3,00 DM auf Verrechnungsscheck beim Verlag 
"Kennwort: ZX-Bundesliga’ bestellen. 


D 


ar 21,58; "AENDERN?" 
AT 21,8; " ir 
"JA" THEN GOTO 5508 
TORE EINTRAGEN 
HEIMMANNSCHAFT 
X3.43 =AIXNS.d4) +X2 
ee 
4) =AiXS3.141+4X2 
=A(X3,15) +Y2 
RTSMANNSCHAFT 
. =AtY3,9) +Y2 
3.10) =A(Y3,1@) +X2 
43 =AlvY3,.14)+Y2 
„ISI=A(Y3,15) 4x2 
SETE EINTRAGEN 
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ee 
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BREUMPrL 
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SIST-I-T12) 
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1= Dx 


je 
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Ss 
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KMSASSIEKHIZÄT 


VZWAUOAD 


um 

DHZ 
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x 
19) 
x zJ 


nom 


at Ka 


PünkTe“ 


LET X=H (0) 
LET X=4 (0) 
OR XXX THEN LET 


GOSUB 1818 
NEXT 0 
"DRUCKEN? LIE ) SsLON 
. e . GSCTO 4008 
7 INKEY$="" THEN GOTO_37= LET SP=A{X,I+1) +A(X,I+2) +FRt 
IF INKEY$<>"J" THEN GOTO 
LET PP=2#A(X,I+1) +A(X,I+r 


FRINT, ‚AT 8.0; 5 =3xzA(X,I+ö 
‚AT 21, 8;° = 
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IELE 
W POPUM Pr 
NP=-UNPB Di 


FORSNEMNHIE 
SAHOHSN 


So 
si 
2 
34 
s4 
935 
26 
TR 
=7 
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Pr Om 


COPY 
LET H{N+ 


I=1 
LET „engl =1 


Ann 'öp <«1a);5P;' 


ER NEN 
; = +53 £ 

29); „I+5}; "ct " AND Pp<122 
IF GU)=1 THEN PRINT I; ae AND NP<12a);NP 


IIND 
DODWDITRLRSIN INN 
RIRLSASWDÄNNUN 
K+D DODNTSHT! 
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AHA ve 
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PIeAlV DOG 
IPPI-ABPI- 
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"OFL BOCHUM 
"BRAUNSCHWEIG" 
"EREHEN 
2)3="5P" THEN 8070 
"HERTHR BSC B i S)="TARB" THEN GCT 
"DOR" — er un 
=" DORTMUND er zo I SRSAIET EHEN SE 
I="ST" THEN STOP 


„BUS! 
DUESSELDORF 2) ="DR'" THEN COF'Y 


DD ad 


Zzea Deu Ar Seren Te Orr HR DI 
aaa re our hheken 


erne . 
u GITG 4000 
"FRANKFURT LET M&eMg+" 


eg LET XXx=0 
"NÜERNBERG = 
Kar 
"GLADBACH 
eg 
"HAMBURGER SU" 
Kol“ 

'1.FC KOELN 


KSc" 
"KARLSRUHE 


"LEU" 
"LEVERKUSEN 


"SsQ4' 
"DEHHLKE 4 


“STun 
"STUTTGART 


"KALI" 
"KAISERSLAUT. 


E GESTALTEN 
IF TAB= 1 THEN LET HiN+1) 
IF THE=2_ THEN LET WI(N+1) 
LET I=S5Sx#TRE-S5 

FOR P=2 TON 


un 


nel H 


Il 


EL RTETTE 
DEEPEReT TE eT er 
AAAJANRFUN 

Sucsccuc 
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PR OEREERPHRREFE 


Pr BERRISTÄTSPÄNAMNPDEAUMAIMANIPLUNERRIN 


GOoTO 42002 
EAST 


IPARDAPPRARAFAnR 


n > 


BEM UNTERPRÜGRRMM 

IF_ TAB>1 THEN GOTO E&950 
LET Y=H(T)3 

LET Yi=H{T-1)} 

RETURN 

IF TAB>Z2 THEN GOTO 8252 
LET Y=WATI 

LET Yi1=W{iT-1) 


un 


ADZMIAMDADITWDKTWDAVDIVDOMNNWHNNDONDIOWDINWINYNINNDMWDAWIM 


nnhn-UnnPpamn lan llaml AanAlCAarU--ZAa-TIe-le; 


HHESMNIFSSBRSEHABFUÜSLILKBVLENN 


{"HEIM" AND TAB=I!+:i" 
AND TAB=E2I + "GESAMT" 
SI + "TABELLE" 
TAE=3 OR XAXXs<>B THEN GUT 


TRAE=2 THEN GOTO_7al4 
HiN+1)=8 THEN LET 


HiN+13=1 THEN LET 
» 


TO ADENNLOMPINPFFREÜINERÜPRPFSBP-WTTN: 
cz 


M PRIPFIPPRIPPIBRIPPRIPRIPFI BRNO 
rm Be} N En ZT EZ En Se EZ 2 7e 


nm 


+1) +A{Y,I+Z: 
„I+1)3 +AlY1,Z+ GOTO 7928 


AND PPA>PPzI IF OWIN+1)=0® | LET 
I+2) 4R ty, Irzı 215 IF WIN+1) =1 LET 
‚IasıHaty1,2r| 3 PRINT AT @.: 

AND NP2>NPZI a EEE, 

4) -Riy,I+Ss) : 
+4) -A(Y1,I+u} 
AND TYUI1STUVE; 


280 AND A(Y„I+4 


SANS SHÜUSDNMNPSANFBÜHAINFONPONER 


EB He << 
a g Pr 


Ben TABELLENPLATZ TAUSCHEN 
IF TAB>1 THEN GOTO 3445 
LET L9=H(T} 


nrann 
KH 
+4 +++ 
DpnDE 
KR 


Kuda 


B- 20 


NRUME 


nnndh 


PERREF 
neQmr 
a 





[HERE EEE) 























GESAMTTABELLE 
Sp G u u TORE FUNKTE 
1.HSU 28 15 11 2 2a 11:15 
2.BRE 283 18 Ss S 32 1:15 
3.8RY 23 15 93 + 23 33:37 
4.5TU 27 1S 7 s6& 3 a7:17 
S.DOR 27 15 Ss TSL:41 25:39 
S.KRI 28 12 11 S 47:33 as:21 
7.KöOL 27 13 3 8 S8:34 Is: @28 
3.FkhR 23 11 4+ 13 11:48 2: In 
9.FCN 28 1@ Ss 12 22:98 za: 20 
18.BUüC 28 7 ı8 ji 33:41 =4 2 
11.DU5S 28 8 8 12 4S:88 ar 2 
12.BIL 27 I SS 13 36:57 23:31 
13.£8rR 28 7 a i2 22:51 23:22 
14.CLR 28 =, 2 iS 48:5Sı Zi: IS 
ı5.LEU 27 6 8 13 33:S5£ Sue: 2£ 
I8.HER 283 Ss 2 18 35:48 ı98:07 
17.504 28 S $ 417 28:88 ES gg En 
158.K5C 27 4 SS 17 30:72 igs:ım 

GESAMTTRBELLE 
sr TORE FUMKTE 
A1.HRAMBURGER Su 28 84:28 & SZ 
2.BREMEN 2a Sa 2 iS 
3.BHVERN MUEN. 28 83:22 ET 
4+.STUTTGART 27 84:35 EM 
S5.DORTMUND 27 St:4i = 
6.KAISERSLAUT. 28 47:33 ed 
7.1.FC KOELN 27 Söü:24 zu 
8.FRANKFURT 28 ai: am 
9. NUERNBERG Zu 232:5SS az 
AQa.UFL BOCHUM 28 D2:41 Se 
11.DUESSELDORF 28 43:95 32 
12.BIELEFELD 27 38:57 ai 
13.8RRUNSCHVEIG 28 22:51 33 
14.GLADBACH AR 49:5ı RS 
15.LEVERKUSEN 27 31:54 ar 
15.HERTHR_BSC EI II:E8 a7 
ı17.5CHALKE 84 au 28:98 +2 
AS.KARLSAUHE 27 38:72 ER 


SINCLAIR ZX-81 


HEIMTARBELLE 








Qa.m. 

se ron RUNKTE 

1.BREMEN ıi4 E ! SS: 2 
2.KAISERSLAUT. 14 R:ı S: 
Q.BRAYERN MUEHM. 14 3 a: 
4+.HAMBURGER SW 14 ı 3: 
S.FRANKFURT i4 =. 
65.5STUTTGOART ıi4 & en 
7.1.FC KOELN 123 i 2 
8.DÖORTMUND 14 ı ER 
93.NUERNBERG 2 E85 =; 










18.BIELEFELD 
11.GLADEACH 
12.BRRAUNSCHVWEIG 
13.DUESSELDORF 
14.UFL BOCHUM 
IS.LEVERKUSEN 
I5.HERTHRA B5C 
17.KRRLSRUHE 
I18.SCHALKE 84 


RUSLURERTSTABELLE 


SET IETE FTSE FTDE HET UT TAG 


MENIDNDÄENRANAAAYDEM 
Human 


BENKRNNEUNNDADLUDLITIR 


ZIURDAYENÄTRRUMT 


Belimedi 
NSENISZEHANNAHMNAL 


RPEEFRRRERK 
PÜNRRIUNUR 
FHEkkEhl 


GM. 








sr TOSE PUNKTE 

1.HAMBURSER SU 122 283 2 & in 

2.BRYERN MUEN. 14 24:15 i2 

3.STUTTGART 13 25:19 ii 

4.BREMEN 44 Ii7:i@2 ıi23 

5.DQORTMUND ıı 22:24 iz 

8.1.FC KOELNM ig 22:28 ‚IS 

7.KAISERSLAUT. 14 SER aa 

8.UFL BOCHUM a4 11:24 iQ 

9.DUESSELDORF IS 18:38 a2 

IQ.BRAUNSCHWEIG 1S I Fe ae 
11.LEVERKUSEN i3 17:39 4 
12.SCHALKE B4 ıi4 18:24 aa 
213.NUERNBERG is 12:38 ER 
14.BIELEFELD 14 8:38 er 
15.0LADBACH ı3 18:32 az 
168.HERTHMA BS5C ı3 12:28 == 
17.FRANKFURT ig iM:Q2 at 
I8.KARLSRUHE i4 14:54 :BR 





Nimm 


Mehrere Versionen des Spieles Nim wur- 
den in den einschlägigen Zeitschriften 
schon veröffentlicht. Hier nun eine für 
den ZX-81. 


Das Spiel hat einen reellen Ablauf; der ZX mogelt 
nicht. Die Zahlen und der erste Spieler werden von 
einem Zufallszahlen-Generator bestimmt. 

Es gilt, von einem der drei Haufen eine bestimmte An- 
zahl von Steinen fortzunehmen. Wer den letzten Stein 
von allen fortnimmt, der verliert. 

Eingabe: Mit den Tasten 5 & 8 (Cursor links rechts) 
können Sie einen Haufen wählen (inv.x), mit 6 und 7 
können Sie nun bestimmen, wie weit dieser Haufen 
abgebaut werden soll. Haben Sie die richtige Anzahl 
eingestellt, so geben Sie P ein und Ihr Haufen wird 
abgetragen. Als nächstes spielt der ZX, aber seien Sie 





ein wenig geduldig - er ist. es ja auch mit Ihnen. 
Mit etwas Übung kann man sogar gegen den ZX 
gewinnen! Viel Spaß! 


nann2snnnnunn 
[LHITTIITT TI TE 





Spielstart 





August 1983 


Homecomputer 47 


tc) 1983 

i@3 DIM Aiilst 
20 LET ZX=0 
S LET SIE=@ 

ıi2aa PRINT AT 12,3, "##DAS 
4 x: SPIEL SF” 

FÜOR_I=1 TO 38 

NEXT I 

FRINT 

FOR I=16514 TO 16683 
FRINT CHRS$S PEEK I; 

NEXT I 

PRINT 

LET BYTE=163384-1ItPEEK 15404 + 
(PEEK_164@51 -16364) 
PRINT 

PRINT TAB 2;5YTE; " BYTES N 
FREI“ 

FOR_I=1 TO 882 

NEXT I 

SLS 

FOR I=1 TO 2. 

LET ALIY=INT IRAND=15) 
IF BEI CH THEN GOTO 218 
NEXT 


ERINT "ar BES Bell ung 
TEE 


Sosiug 
I=1 ro 3 

FOR K=1_ TO Rınn 

PRINT AT 1i8-K,Ixs; "pm" 

NEXT_K 

PRINT AT 28,1Ix*5+1;A1tL 

NEXT I 

LET SP=®8 

IF RND<.S _THEN LET 5P=1 

PRINT AT 21,8; ("ERSTER SPIE 

: N4+t"ZX 80” AND SP=B@l+t"ST 

Z,MEIN FREUND" AND 5P=1) 

425 IF SP=@ THEN LET SP=NOT ı 

43@8 FOR I=1 TO 108 

435 NEXT I 


10] 


ALDI DT DUTTSIFTRT TRIER, TRURTETETETERETEN 
BUEEIANNTEEMPRRUNDHEHE 


SBUBEHANENGSEBH FÜrNPSSANRSH 


si FOR I=21 
452 PRINT AT I.®; 
";AT I.20; "8" 
“69 NEXT I 
a7a LET X1i=Aiti) 
158 LET X2=Ri2)} 
+98 LET X5=A (31 
194 GOSUS_ Sa 
495 GOTO 608 
SB® IF Xi=Atll} THEN GOTO Sa 
585 FOR I=Atl1)+1 TO x1 
„sıe, ‚PRINT AT 18-1,5;6$; AT 28, 


S1S NEXT I 

515 FRINT AT 28,6; Rtl)} 

s2a LET Xi=RtiN) 

s30 IF X2=Rt2) THEN GOTO 56a 
5355 FOR I=Al2)+1 TO_xX2 

S4aa PRINT AT 18-1,18;6$;AT 28,1 


a5 NEXT I 

S46 PRINT AT 28,11; RAt2) 

558 LET x2=Ri2) 

568 IF X3=Ai3) THEN GOTO 598 
5855 FOR I=RAi3)+1 TO XS 

en PRINT AT 18-1,18;6%; AT 28,1 


Der NEXT I 

S7& PRINT AT 28,16; A123) 
SO LET X3=Ri3) 

SOIS RETURN 

615 PRINT 

20 PRINT 


ERE IF SP=NOT 1 "THEN GOSUB saaa 
sas IF SPp=1 THEN GOSUS Sean 

a7 GOSuB sed 

sıa IF Alil)+At2)+At3)«2 THEN GO 





ro 7eaa 
s2a 
aaa 
ıiaa08 
1991 


GSOTO ALS) #199+39308 

GSoTgo 3288 

IF At13)=@ THEN GOTO_ S7a8 
IF At13)=At12) THEN GOTO 32 


LET A(7I=AL(7)I-RAC1I) 

SUOTO 52088 

LET A(9}I=A(9) -2 

IF ALlY9) x<=@ THEN GOTO 36588 


GoTo 1818 

IF At7}=8 THEN LET A(?7)=1 
IF At13)=® THEN GOTO 3988 
LET AtAi21=At1431 

GOTO_ sau 

LET Aal eRrıe) 


= 6 
IF A(I)>=2_THEN LET A=A+5 
IF ALUIJ<«2 THEN LET A=A+RCI! 
NEXT I 
IF Atat1i2))>=2 THEN LET A=R 


IF AtAt12))<«3 THEN LET A=sA- 
aiRtı2)) 

LET A=ABS A 

IF A>=3 THEN GOTO 4320 

SOTO A#199+42088 

GSOTO 4288 

LET A(7I=AI(AL12N) 

GOTO 4328 

LET A(FI=A{IAt12)) -1 

IF At73=8 THEN LET At7)J=i 

LET MIN=A(t?7) 
=ALA(12))-MIN 


THEN LET Hu=Hu+i 
=@ THEN LET Huü=Hü+i1 
=@ THEN LET HU=Hus+i 


E3 
PRINT AT 12,22; "HRUFEN<> " 
IF B$="6" OR B$="7" THEN GQ 


LET 8=H 
LET H=H+tB$="8") - {B$="5") 
IF H>3 THEN LET H=3 
IF H<1 THEN LET H=1 
GSOSUB 5398 
IF B$="6" OR B$="7" THEN GO 
75 saoo 
S5@65 PRINT AT_17-AtH} ,Hs5+1;'B" 
5371 IF @<>H THEN PRINT AT 17-At 
11,6; ";AT 17-Al2),11;" ";AT 17 
-AT3I.16;" " 











5085 LET B$= INKEYS$ 

52118 NEXT 

51IIS@ GOTO Sasa 

5288 LET Y=®8 

5281 PRINT AT 12,22, "ANZAHL (PI" 
s282 PRINT AT 17-A(1),6;”" ";RAT 1 
?7-RAt2) ,11:" ";AT 17-At3) ,16;° " 
5295 IF HU=2 THEN GOSUB sso8 
5218 PRINT AT 17+Y,H:5-1; "> "AT 
i7+Y,1#+5+3,'"<" 

5338 GETRENNT N GOTO 5aaıa 
52590 arp” 

53251 IF B$="S5" OR B$="8" THEN GO 












sso8 
=2s2 IF AiHI+Y>@a THEN PRINT AT 1 


68 LETB INKEYS$ 
37_IF esars® OR B$="7" THEN GO 


C=1 THEN PRINT AT 14,25; 
B$="5" OR B$="8" THEN 60 


5245 IF B$="P" THEN GOTO S5aaıa 
ssas, „IF, C= NOT 1 THEN PRINT AT 14 


45 LET Y=Y+tiB$="6")-(B$="7") 
pi: IF ABS Y»>AIHI-A THEN LET Y= 
Sahatır y © THEN LET Y=® 

45 > = 

493 IF B$="6" OR B$="?7" THEN GO 
5205 

5 LET B$="" 

LET C=NOT C 

GOTO 5220 

LET A(H)I=ABS Y 

GOSUB S2a8 

RETURN 

GOSUB 599a0& 

PRINT _AT_19,24; 

GOTo saadı 


rn AnAnR 
Br Van 
www vwvww 





Im Spiel 





F6& 





UEERUSND 





AND 
AND 
AND 
AND 
AND 


H=1 THEN 
H=2 THEN 
H=3 THEN 
H=1 THEN 
H=2 THEN 


PRINT AT, 17+Y,H35-1; 


IF At1}=® 
IF At2)=@a 
IF A(5)=08 
IF At1)=8 
IF A(l2)=a 
RETURN 
*„Hx*5+5; 
RETURN 


LET 6$="#x*#+" 
G 


PRINT 


$ 
PRINT AT 14,22; "CLEVER 


PRINT AT 12,22; 


GOSUB 10098 


PRINT AT 12,22; 
PRINT AT 14,22;“ 


LET 
LEF 
LET 
LET 
LET 


RAT 


"ICH BIN 
NERREREERE" 


IF SP=NOT 1 THEN GOTO 72e8 


PRINT AT 198,5; " 


LET SIE=SIE+1 


SOTO 7308 


PRINT AT 18, 


LET ZX=ZX+1 





„PRINT AT 8,2; 
PRINT AT 19,5; 


FOR_I=2 TO 2& 


IF INKEYS<>"R" 


FOR I=2 TO 28 


PRINT AT I,1;" 


NEXT I 
GOoOTOo 2aa 


SARUE "NIMM" 


RUN 


"SIE 


OH WEH 


S; "HURRA 


"NEU ""R 


THEN GOTO 


OH 


HURRRA 


";SIE;"” 






FR 


Kreisstatistik 


für ZX-Spectrum 


Dieses Programm für den ZX-Spectrum bringt eine 
effektvolle Grafik auf den Bildschirm. Am Beispiel von 
zwei Bildschirm-Ausdrucken wird dieses deutlich. 

Beim ersten Beispiel ergibt sich ein Gewinn, daher sind 
sechs Segmente ausgedruckt. 

Das zweite Beispiel zeigt einen Verlust, daher nur fünf 
Segmente. Der übersteigende Prozentsatz (von den Ein- 
nahmen als 100%) wird aber ausgedruckt. 

Man kann natürlich die einzelnen Segmente nach Bedarf 
benennen, muß dann aber die Zeilen 80 bis 90 und in der 
selben Reihenfolge bei den Zeilen 125, 155, 185, 208 und 
219 Veränderungen vornehmen. 


WOHNUNG 
RrRUTOo BE 
KONSUM 

TABAK L 
SONST zorsmm 
Gewinn 


WOHNUNG 
Fere 
KONSUM 
TaBak 
 SONSTIGESEEE 
Verlust ERE3 





BVUPRFFROBSSU 


NNS NENBSANB NENDNBNWSM 


ÄPRP PRRERPR PRERARRRE 


27 
N 
[=] 


AND NNPRUGD 


"SONSTIGES" 
LET 3=& 
LET z=@ 


Xu 
JIAT: 3°, 202°.25, 20,2 


Siam 
" PURUMPM 


LET C=68: . 
8: PRINT TAB 8; "Kreisst 
tik" 
CIRCLE 79,79,c 
PRINT AT 2,8; " 
INPUT e 
PRINT AT 2,0; " 


INPUT 4 
LET yi1=y1+Yy 
IF yil>e THEN GO TO 227 


Einnahmen?" 
Wohnung? 


8: PRINT 2,80; "Auto? 


To 227 


2,80; "Konsum 


TO 227 


2,80; '"Ziıgare 


Ta 227 


2,8,"Sonsti 
LET y=eEe-iyi-y) 

GO_SUB 18988 

LET x=x2 

PRINT AT 2,8; " 

IF e>y1 THEN GC TO 3588 

LET ae SL ST YET LUSTT 

yl-e 


(4u*19@®87e) 


"Gewinn" 


DU) 
„ÄTIH P+ I QUÜrH+ 
Pr 


PONÜOXNOFR XPZ BRL=SS 
[>] 


y+1aQare} 
87100 
I/368) +(x#PI/18 


nu 
um- 


TWETWXX EXD CHACBoOcd 
P WPRRPFWNNDPr RFPr Dun Driı 
VHOFHO + P+H B Pı 


>» ZU ZU X *U 


DRAW INK 


x + 


LET x -.125 

IF x1<x+12 THEN GO TO 1950® 
GO_TO_ 1815 

LET a3= a3+2 


r=@ 
PRINT AT 33,19; 


r a5(3) 
INVERSE 1;p1;"%": INVER 





Spectraxians 


Aus den Tiefen des Alls bewegt sich un- 
aufhaltsam ein Convoy von zerstörungs- 
wütigen Kreaturen auf die Erde zu, da- 
rauf aus, sie zu unterwerfen und die 
menschliche Rasse zu vernichten. 
Unaufhaltsam? 

Nein! Einige mutige Erdlinge haben den 
Kampf gegen die Eindringlinge aufge- 
nommen. Werden sie siegen? 

Diese Version des bekannten Arcade-Spieles ist noch 
interessanter und schwerer als das Original, weil nur die 
tauchenden Angreifer abgeschossen werden können, 
nicht aber die anderen im Convoy. 

Die Taste Fbewegt die Basis nach links, Taste 3 nach 


rechts. Mit der Taste 0 wird geschossen. 
Wer schafft mehr als 5900 Punkte? 








\ 
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SPECTRUM SOFTWARE 


JOTSOFT - NEU IM DEUTSCHLAO — JOTSOFT — NEU IN DEUTSCHM.MO - JOTSOFT - 














BESTELLEN SIE NOCH HEUTE UNSEREN KATALOG MIT DETAILLIERTEN PROGRAMNBESCHREI- 
|BUNGEN SOWIE SOFT- UND MARDWARE-TIPS FUER DEN SINCLAIR SPECTRUN GEGEN EINE 
SCHUTZGEBUEHR VON 3, -- pri, 

DIESEN MONAT Zum BEISPIEL: ZUSATZTASTATUREN UND JOYSTICKS SELBSTGENACHT. 


DIE LIEFERUNG DURCH VERSAND ERFOLGT AUSSCHLIESSLICH PER NACHNAHME. DIE AUS- 
LIEFERUNG ERFOLGT AM GLEICHEN TAG DES BESTELLEINGANGES, WENN DIE GEULENSCHTE 
CASSETTE AUF LAGER IST. ANSDNSTEN GEBEN WIR NACHRICHT LEBER DEN VORAUSSICHT- 
LICHEN LIEFERTERMIN. 

UEBRIGENS: IR LIEFERN ZU JEDER CASSETTE EINE DEUTSCHE ANLEITUNG? 





SOFORT LIEFERBAR: 


HERSTELLER 





Imuns ON FORCE 
SPECTRUN ASSETDLER 
SPECTRUN CHESS 
SPECTRUN Fon tm 
armen 
NASTERFILE 
MASTERFILE-16 
APEHCHESS II 
TEST marcm 

2 1 

CENTIPEDE 
DIETATOR 

Sraum OF EUIL 
TED tromKırı 
MEATMROM 
NIOHTFLITE 

assı 
SPECIRLPANIT 
cr 

SUP IMG JMCH 
rane rıma 
CONVERSION TMPE I 
CONVERSIOM TAPE Li 
SUPERDEFLEX 
BMAXT COMLICT 
PENETRATOR 

THE MORBIT 

Cosmic KAIDERS 
AD AR TI 

Panic 

SPACE ZORWIES 
OMNICALE 

BAITLE Dr BRITAIN 
2 rUmmEL 

nor In 0 
SPECTRUN EDITOR/ASSENBLER 


PezE DEATH AncE 
TME BLACK MOLE 
NSTRO BLASTER 
FRENZT 

NETEOR Storm 
PINED-aur 

SPACK INTRUDERS 
TInE-Sare 
EUEREST ASCENT 
surer ser 
TRANSSTLUANAN TOWER 
CATERPILLM 
FRENZY 

TOHSTER muncHer 
ROM FROG 

JEt PACK 

pssst 


MEBEX- NE GANE PEDPLE 
ABBEX- THE GME PEOPLE 
mRTIe 

ARTIC 

meric 

MRTIT 

MRTIT 

ARTIC 

MRTIT 

CANFBELL STSTENS 
CaneagLL STStens 
CAMPBELL STSTENS 

cr SOr TUE 

COMPUTER RENTALS 

DK? FROMICS 

DK’ TRONICS 

DK? TORI 

Dx TRORI 

DK TRONICS 

NEUSON CONSLA TANTS 
MELSON CORSA TANTS 
HELSON COmsun. TAnTS 
NEUSON COMSIKTANTS 
INAGINE SOFTURRE 
InAGInE SOFTLARE 
ImmGInE SOFTURRE 
KENPSTON 

KenPston 

Lanasor t 

NaRTEcH amnEs 
PELBORNE rOUSE TUBLISMER 
FELBOURNE MOUSE PUBLISHER 
NICRD-GEN 

NIERD-OEN 

NIERD-GEN 

MICRD-DEN 

MICRDSPHERE 

NICRDUME SImunArions 
NEU GENERATION SOFTHARE 
NEN GENERMTTON SOFTUARE 
FICTURESGUE 

FICTURESAUE 

PIXEL 

PROTEK 

PROTEK 

PROTER 

P.5.5 

1.5.5 

P.5.5 

west 

WUteHsiLun 

WUICKSILUM 

WWICKSILUAM 

SUICKSILUM 

auscksinun 

QUICKSiLun 

RICWRD SHEPHERD SOFTUNRE 
RICHARD SHEPHERD SOF TURRE 
RICHARD SHEPHERD SOFTURRE 
SPECTRUN GAMES 

SPECTRUN GANES 

SPECTRUN GMES 

SPECTKUN GRnES 

ULFINATE PLAT THE Gene 
uLfINATE FLAr TE nme 


AEERFERFRETTETTE 





VERSANDANSCHRIFT: 


LADENVERKAUF : 





FA. JOYSOFT 
BAHNSTRASSE 58 
4238 RATINGEN 
TEL: 82182725498 


FA. JOYSOFT 


D’DORFER STRASSE 45 


4338 MUEHLHEIM/R 
TEL: 82887489442 





BORDER 8: PAPER 8: INK 7: © "I OR IABS_iPp+l-hl<=i AND as="") 
TIEN SU, 70,30 R 
RINT AT 10,10; FLASH 1; "PL iss MT 2R,R: FLASH 1,"R" 
u 2 ” „ggR PRINT AT da,18; FLASH 1: "sc 
SB 1008 BEE 2 
3 Zus 288 za: {S THEN LET == 


m 
Kıprerekelie gi 
FIT 


[2% 


LET w&="FFFFFFFFFF 


1 „IHEnN PRINT 
3 
P „I„HEN FRINT 
B er 


27 LET ü$=" OP OP CP Ge oe op 
SR SP OF Or GP OR Gr Ge De op 


TO 2 STEP -2: IF o 
FHER NENT i 5 


h=i-19#+1(i> 10} -19s ti 381 


er TO i+4r=” 
EN GO TO 89 
16) -i(h>=156)} 7 R 
O2 STER -5: : REN Subrcutine to 
EXT x M REM sliens missles. 
TREE bi 
hiVINT IAND#2) +iI) 


“ E " BND a3="" OR ca= 
THEN RETURN 


i WAL c$#+8+8, i2l-visä-2 
SIS_DRAU VAL CH#8+A-PEEK DIGTT, 
18-REEK 23678 

„s3 PRINT INUERSE 1;:AT Re a "3uR 8168 INK 7 

‘SS3TAB 15; "HIGH SCORE: ; SS@ IF VAL c$=P OR WAL cH$+1=p T 
au BER ven TO 48 ala DRAN _OVER 130, 11 a-2 

Q (19-vi#8-2 

en, FRINT AT v-1,.0h:' SAT v-X Ssa RETÜRN 


„SSBLErAVT ‚Auenge Lor ua og 2: 
NÜERSE ©; u;0 188 a . 
NITRB ursetas Tb Ser! fab”u;usıse 1098 FOR x=1 TO 7: READ ps: For 
7o 

118 PRINT_INK S:AT von: agiAT v. aaa nen Es ‚NEXT VOR BIEAR 


; FIAT aß.p-ai“ 281 n 
ars) LET uigte: aan ai se v>10 T 1038 DATA "a" ,2,2,71,128,7,3: 
R =s- = ” 
BtOe ib Sur ana, DHENSINK.B, P | SEcea2R den” ©4020, 
+5. ® 

53.50. eran ÖVUER 1:0. -108: INK_? ges DATA "9" .49,56,21,7,.128 
PE=o" AND T(ipsh or "HR" 142.220, 

BND ase>"") OR (ipeil OR Er sa 

I) AND bers"0)) THEN BO SUB 


BEEP .81.-14 RE 

IF RND».S THEN 50 SUB 508 i. 

LET P=p+2x* 1 {INKEY$="S"} AND E jgg 128.122 ,224.1 
8) -E8tiINKEYE=S"1"I AND p>2) ‚ „A2R.ı2 

LET oh=h: LET otl=t 1 RETURN 

LET di=(INT (RNDs2) +11) sid g : 

LET h=h+di : 
IF_h>3@_ OR hı@ THEN LET i 5 "eLs 

LET h=3@z#tt>16): SO TO SeaS PRINT TAB 1; "SPECTRUM GALA 
LET di=tINT IRND#+2} +12} KIANS” "ag Q.fishber,.” 

LET L=etlrdi ß mr Sees PRINT" The abject 

IF SR OR Lip FT _ = gane s 

E & E - Saia PRINT "shaot as Kan 


GH" THEN LET 9%ix TO 
THEN LET 38iiı TO 


[>] 
” 


vromg Air 
BRTOün nIior 


1y" 
1°) 
+ 
ku 
m 
M] 
= 
= 
ä 


Wu 


KEbBTPPPENDEL 
FT 


NSHEWBRNM +7 


= Ei ac Jiving, Firing atiens 
. r = can -- 
ise IF 28="" 4; € i F sa20 FRINT "sa getting 3 high sc 
ro_176 Ares 
382 _ PLOT INVERSE 1,8,15: SW2S_PRINT ‘TAB S; FLASH 1: "THE 

NVERSE 1:254,0 TONMTROLS: —-" 

ı&9 PRINT ar 21.8;w8&( TO w) Sasa PRINT "key ‘ı"“ BRawves you 

IT NEXT w Left” 

i7l IF a$="CH" OR b$="CH" THEN aaa PRINT nz a“ 
so SUR Sad . re Si 

175 IF xı& AND ı«ä AND =8="" PN 3 at fires your 
D_ b&="" THEN LET w=u+1: LET 2=s+ Fi 
SB: PRINT _RT 1,9: FLASH _1; "BÜONLIS ““ PRPER 2; FLASH 1; ' 
": PRUSE 250: Prüse a: oo TO 25 > ER a 

ı8@ IF ABS ip+i1-it!>i AND ABS (pP "ipress ’enter’ ta be 
+1-h}ıl THEN co TO 4a Fi e NE 38 

398 IF {iRBS ip+i1-ii:=i AND bs=" RETURN 








Helikopter 


für den VC-20 o. Erweiterung (mit Ton) 


Bei diesem Spiel soll man versuchen, als Pilot mög- 
lichst viele Panzer abzuschießen. Dazu stehen die 
Tasten $ und F zur Verfügung. S, um den Helikopter zu 
stoppen und F, um eine Rakete abzufeuern. 


1 REM %# HELICOPTER ## 
5 DIM@«C35: POKE3E379. 159 
& PEINT"'IM 22 HELICUPTER 
7 PRINT"AMM [5] :HELICOFTER STOP M [FR] 
18 POKESZ, 28: FOKESG. 28: CLR:HR=7168 





Aber Vorsicht ist geboten. Denn der Panzer schießt wild 
in die Gegend und fährt unberechenbar. Falls man 
trotzdem einmal getroffen wird, ist es nicht ganz so 
schlimm. 9 weitere Hubschrauber stehen bereit. 

Im Programmtext sind Erläuterungen weg gelassen 
worden, und auch auf dem Bildschirm erscheint nur 
wenig Text, damit das Programm in die Grundversion 
des VC-20 paßt und auch dort läuft. 

Sind alle 10 Hubschrauber verbraucht, so kann durch 
Druck aufeine beliebige Taste ein neues Spiel gestartet 
werden. 


“ee MM BY B.BOLLMANN 19533  " 
:HELICOPTER FIRE " 


11 FORI=ATOS11:FOKEH@+I. PEEK“32768+12 :NEAT 
12 HA=7168:FORZ=BTO31 :FORI=ET07 :READA: POKEHA+Z#S+ 1, A: NEAT : NEXT : POKE36869, 255: PRI 


FORN=BTD4 : READHR , C: FORI=JATOHR : POKE384MB+1,C: IA=HR&+1 :NERT:NEXT 
P3=7782: 9=7782: PA=3: QA=12: GOSUB3S:GOSUB4R 
FORI=77247T077445TEP2 : FORH=ATO3I6STEP396 

FOKEI+H, 31: POKEI+1+H, 38: POKEI+Z22+H, 23: POKEI+Z3+H., 28: NEXT: NEXT 


CLR 


FOKE36878, 15: PAl=2: QA=2:PA=7680+7#22: 00=7630+18#22 


GOSUB33:GOSLUB48 


IFPA=21THEHRQ=PB: RA=PA: GÜSURSA: PA=2: G605UB35 


E=PEEK.( 137%: IFE=41 THENZS 
PA=FPA+1 

IFI>8974THENHS=@ : POKED, 32 
IFHSTHEHGNSUBEF 


QA=QRA+INTERNDE1HH. 55: IFOA=Z2THENRB=RR: RA=OA-1: GOSUBEB: OA=2: GOSUB4B 
IFE=S42AHINOTHSTHENHD=PO+PA+23: POKED, 24: HS=E=42 


IFF<?731THENFOKEF . 32:F$= 












34 IFPSTHENGOSURTI 
31 IFNOTPSTHENFR=INTCRNDG1)#3+2) :RISFR :GOSUB49 | F=OQ+QA-51+2#FR:POKEF : 234FRIRI=1: 
PS=-1 

32 601021 

35 POKEPS+PA, 6: POKEPO+PR-1.,7:POKEP@+PA-2, 8: POKEPB+PR-3, 32: POKEPO+PA-25, 32 
26 POKEFS+PA-22, 11: POKEP@+PA-23, 19: POKEFO+PA-24,9 

27 POKE36874, 190: FORT=1T05@: NEXT :POKE36874, 8 

32 POKEPG+PA-22, 12: POKEPB+PA-22.13 

39 FORT=1T058: NEXT :RETURN 

48 POKENB+AR. 2: POKERA+ORA-1, 1: POKERI+OA-2, 9: POKERG+AA-2. 32: POKERA+OA+1, 32: POKENA+ 
QA-23,3 

41 POKEDG+AA-23+SGNCRI-3),32 

42 POKEGG+OR-25, 32: POKEND+OA-21,32 

43 0(19=32:062)=3:043)=22 

44 ONRIGOTO4S,46.47.48,49 

45 0C1)=4: 601058 

46 2(1)=14:007058 

47 0(2)=16:60T058 

48 0(3)=15:60T058 

49 0(3)=5: 601050 

5a FORGH=1T03:POKEA@+RA-25+AH, DCRH) : NEXT :RETURN 

6a FORI=GTO2:FOKERB4+RA-1, 32: FOKERR+RA-1-22, 32: NEXT RETURN 

&1 HI=RA+RA:HI=HI+29728 

62 FOR1=8T02:POKEHI-1; 17+1:POKEHI-22-1,2@+1:POKEHJ-1,2:POKEHJ-22-1,2:NEXT 
63 POKE36877 ‚298: FORT=1STO@STEP-, 1: POKE36878, T: NEXT : POKE36877 ‚8: POKE36879, 15 
64 PRINT" AM: "TR"S"SPCC12)" 8: "OR 

65 FORI=7799108897 :POKEI, 32: NEXT 

66 PS=0:H3=9: FORI=9T02:POKEHJ-1.@:POKEHI-22-1,9:NEXT 

57 IFOR=1ATHENPRINTTAB(1SE)"@* GAME DVER #0" :GOTO73 

€8 PA=2:RA=2: RETURN 

69 POKED, 32: D=D+23: IFD>=QAANDPEEK CD)C>3ZTHENRG=0R : RA=AA: TR=TR+1:G0SUB61 RETURN 
7a POKED.24:RETURN 

?1 POKEF,32:F=F-25+FR: IFF<=P@+22ANDPEEK CF I<>32THENGOSUB7S : RETURN 

?2 POKEF ‚ 23+FR RETURN 

75 OR=OR+1 :FORPA=PATOGE+PASTEP22: GOSUB35 : FORI=QT02 :POKEPA+PA-46+1,32: NEXT 
?6 FORT=128T02098TEP5 : POKE36976 , T : NEXT :NEXT 

77 Ra=N@:RA=PA: POKE36376..B:GOSUBE1 

78 GOSLBER: PO=7689+7%22: RETURN 

73 FRINT"MQ L HIT ANY KEY ]" :POKE198,0:WAIT198, 1:RUN 

8a DATA7.63,64,159,69.124,69,21 

81 DATA255,255,9,255.231,231,231,255 

82 DATM224,252,2,249,60,62,60,249 

83 DATAB,0.8.0.60.255,255,255 

824 DATA9.0.9,8.0.0,127:0 

85 DATA,2,9,0,9,9,254,8 

86 DATA226. 242,242, 250, 254,252, 137,254 

87 DATA2, 131,255,255,2,1.9.7 

88 DATA?,12.3,1.0.9,0,8 

83 DATAB,2.9.0.0,9,5,2 

92 DATAM,0,9,9,31.128,1,3 

91 DATA, 64,64,64,191,64,249,228 

92 DATA4,8, 16. 160.9,224,249. 228 

93 DATA4,2,1,8,9,.128,1.3 

94 DATA18,3,4,2,1,9,0.0 

95 DATAB, 16,32,64, 128,9,0,8 

96 DATAB.8.8,8, 69,255, 235,255 

97 DATA112,4.120,129,59,2,96, 24,20. 189.99, 192,255,68,126,189 

98 DATA14.32,39, 129,228, 192,6,24,9,1234,6,9, 16, 32,64,14 

99 DATA129,16,9,82,44,16.8,82.8.97,96.9,8,4,2,112 

188 DATAR.9,0. 198. 127, 198,9,9.64,224,112,48,9,6,7,3 

191 DATA48,48,9.4,9,1,8,8,16,56, 16,8, 16.8, 16,9, 12,12.9,32,8,128,8,8 

192 DATA248,224,128,128,128, 129,128,255 

193 DATA31,7,1,1,1,1,1,255 

184 DATA192, 249, 248,252,252,. 252. 252,252 

185 DATA3,15,31,63,63,63,63,63 
DATA43,4,97,5.373,6,439,8,595,5 














Crown Jubilee 


VC-20 mit 16-K-Erweiterung 







Das Programm ”Crown Jubilee” wurde 
einem Geldspielautomaten mit gleichem 
Namen nachempfunden. Es ist ein be- 
sonders interessantes Programm, das vie- 
le Programme seiner Art bei weitem 
übertrifft. 








Vor dem Laden muß man für den neuen Zeichensatz, 
der in DATA-Zeilen untergebracht ist, die folgenden 


a REM (C) BY BERND 






132 DATA119.95.21,37:119, 
142 DATA8?,85:117:21,23,9,18 
15@ DATA119,85,117,85,119 


2,192,192,11 
‚2,192 
179 DATAA.2.9,59.42.42,9,9, 


182 DATA1S3.2,1°5.9,199,9, 
129 DATA185,1.177:177,2,1 


a, 
26.,9,196,2 





DATA177,9, 185,9, 177,1.167,0,167,2 
FORI=SASATOS 119: READT:POKEI, T'NEXT 


DIMM4(S9) 

a FORAU=1T053 

‚RERDDR 

Aa MACAM)=DN 

am NEXTAU 

aaa PNKE36879.93:PRINT"="; 
31a PRINT"T"TARCZEI "AT" 
32a FRINT" Be | 
33a FRINTTARCSI"TIE Ile eig" 

A FRINT'RO HM ll Ba 

a PRINTTAB(SY"TerLt eiaruu gg" 
a FRINT'EIO 


DNMmO ID num 
III DD 


DS 
>] 











REGENHARDT 


7a TATR240, 240,240, 204, 132, 128, 2, 2,15, 15 
sa DATAR.A.@.7,15.28,24,24,9,0,9,224,248,56,24,24,24,24,28,15,7,8,8,0 

sa NATA24,24,56,240,224,0,0,9,9,119,85,85,95,89,119,0,24,24,24,24,24,24,24,24 
‚aa DATR9,9,0,255,255,0,9,9,1,7,9,18,19,7,5,7,128,224,144,89,80,224, 169,224 

112 DATR15,15,159,15,8,4:2.1,249. 16.16, 16.249, 224, 192,128 

122 DATA15,15,15,19,15,7,3.1,249,16, 16,16, 16, 32,64, 128 

9,21,117,21,119,9,192,192 
2,192,119,69,117,85,119,8, 192,192 
‚192,9,0,29,39,0,96,96,9,2,119,66,114,18,114,0,8 
12a DATA2,7,224,174,179,224,2,9.,0,0,238,179,179,238,8,8 
9,8,238,138,234.0,0,128,228, 144, 156, 132, 156,8,8 

196 ‚189,8, 185,8,177,8,167,8,167,8,177,8,185,0 
85,2,191,9, 189,9, 196,9, 196,9, 189,8, 185,8, 177,9,167,0,16 


Billuch. 48" 


1 24" 





POKESs eingeben: POKE 44,28 : POKE 7168,0: NEW 
Mit den Tasten 1,2 und 5 wird der Geldeinwurf simu- 
liert. Durch Drücken der Taste Fl kann man die linke 
Walze nachstarten, wenn das Wort START aufleuchtet. 
Leuchtet STOP auf, so stoppt Taste F3 die rechte oder 
mittlere Walze. Beieinem Gewinn kann man durch die 
Taste F5 seinen Gewinn verdoppeln oder verlieren 
(Chance 1:1). 

Gewinnen tut man, wenn drei gleiche Symbole erschei- 
nen. Bei drei Kronen erhält der Spieler eine Serie. 
Die Auslosungsdauer kann durch Drücken der Taste 
F3 verkürzt werden. Ansonsten dauert die Auslosung 
ca. 30 Sekunden. Bei drei Wappen wird auf der dazuge- 
hörigen Seite ein Gewinn ausgelost. 

Das Programm ist akustisch untermalt, und bei Ge- 
winnen von 100, 80, 50 und 48 Sonderspielen erklingt 
klassische Musik. 

Durch Einfügen der "Zeile 835” kann man eine Serie 
oder einen Wappengewinn simulieren. Die Werte dafür 
stehen in "Rem-Zeile 830”. 


2aa@ HAMBURG 13 HALLERSTR 


ASSE 1 

12a PRINT" TIMIRMTEINEN AUGENBLICK BITTE"; 
2a POKES6,S6:CLR:POKEIEIES, 205 

32 RESTORE:POKES6,86 

aa DATAR,254.19, 


1,9,151.52,51,44,49,58,151.52,52,44,59,56,58 
sa DATA151.55,49,54,56,44,48,59,133.2.9,0 


‚15,7,3, L 2 8, 16,16, 16,32,64,128,0,8 


FORI=ATN2247 :POKEI+51292., PEEKL32768+1) :NEXT 
FORI=ATN151:READT:POKESBI6+T , J:NEXT 
FORI=ATO95:READI:PNKESR4S+I, I: POKE6949+1+1924,255-]:NEXT 





37@ PRINTTABCSI"TE TEILE TE Ne" 

asa PRINT'RO HAM "Ah 
aaa PRINTTABESP" TEEN mir 

aaa FRINT"EID HB, 1 Pre 20 
419 PRINTTARCSY"TBI1NO 6 40 31" 

42a FRINT'TES Hl Ih 3" 
432 PRINTTARES"TMIS 20 10 Sol" 

442 PRINTER A — nn 2 1" 
45a PRINTTABCS"ET IH IW" 

462 PRINT'EIT HM Ada ll" 
47a FRINTTARCSY "PH" ö 
489 PRINT"EO“ TH _ASONDERSPIELEH. 07" 
49a PRINT"ZOT TG. MIELE a ol". 
saa PRINTTAR(EI" TI PF an" : 
sja PRINTER. PL N; 
522 PF=A:SI=9A:xS=0 

532 COSURE2A 

54a IFPF{3ATHENSS® 

55a PF=PF-39:A0SLUBEIO 

s629 S0=A 

57a ea 


522 IFSS)= ITHENSS =SS-1 

saa IFSS=ATHENKS= 2 

51a COTOS3A 

622 REM GELDEINMURF 

‚632 FORF=ATO1AM 

da GETKE 

55a IFXK#*1"THENPF=PF+1AA:GOSLIBSSA 

gsa IFX$="2"THENPF=PF+2aA:OSLBESA 

679 IFx$="5"THENPF=PF+SAA:GNSLUBEIA 

630 NEXTF:RETURN 

5a REM KASSE 

7aa FOKE36878, 15:FORF=@T05:POKE36374, 25@: FORFF=ATOG :NEXTFF :POKE36874, 0 
zıa POKE36875,219:FORFF=ATNS:NEXTFF :POKE36875,@:NEXTF 
72a IFSSCIATHENGNSUR282A 

722M PRINT "" FAMMNKURTATNTAIKTTEUKTEKTNTKTKTKTENN" ; 

74a IFFF<LAATHENPRINT"IRBRRRPRRRBRE"PF: RETURN 

75a IFPF<1ARATHENPRINT"IRBPRRARARRAM"PF: RETURN 

76ER IFPF<LARRATHENFRINT"IRARRARERBIE"PF:RETURN 

77a FRINT"IBRRBRRBRIM"RF:RETURN 

rea REM SPIEL 

7SA NI=A:Fii=R 

saa RS=INT{RNDCMIZIHL 

s1R MS=INT{RNDELIHLAI+L 

829 LS=INTCRNDALIMIAD+L 

s32 REM SERIE(LS=1:'MS=1:RS=L)UAFPEN BLAUCLS=11:MS=2:RS=11)WAPPEN ROT(LS=12:M8=3: 
RS=12) 

= .. 2 


260 TFFCSITHENGOSUR11SR 

s7a IFF<7LAHDFLSATHEHLOSURLDSA 
esa FNZLURITIA 

saa IFFL2ITHENLNSUB12AR 

san IFF<7LANDFL=ATHENGSNSUR126R 
1A GOSLUB1322 

32a IFF<2ITHENGOSLUBL21A 

232 ML DRIN EROTREHENNUGSE 

Een IFFC2ITHENDOSUR1220 

SER IFSSCDATHENCNSLR2S2R 





IFF<FLAHDFLISATHENHEOSURLZER 
LFOSUR1IAA 
ı IFF£21 TRENOSN IF123R 
29a 
OsUBlasa 
IFF£L21THEHNRNSLURIDAR 
IFF£7?' Sam LI=ATHENGNSUBI FAR 
EOSLIRLIER 
m IFFSOATHENANSURLR7E 
 DETKE 
IFF=2AANDDU=ATHENFR INT" SISTETMTHTn dB Be BU Be SO ie u" 
aa IFFI=ZAANDFCSAARNDE ES" "ANDDL=ATHENDU=1 PRINT" NOT " :ONTOB2Q 
A IFF=4ATHENFRIMT" SRTRTRTTeOSPrBIBIBEBräng_ je NEIBEREBEBEG | """ 
a IFF=7OTHENFRINT " SIRTNERTRae Bee Bee Bao Be Beer Reg _| TER 
IFF>=4AANDFLFARNDKSE="M"ANDFU=ATHENFU=1: PRINT" ODER" :GOTOL 


Tn114R 


SEINTERNREHALDIHL SNSLEL43A 


=INT{RNDS1I#1A)+1:B0T01170 


. un 3 231 123 7 BEER BE RST.) 
Sn er 


:RETURN 

A FR p “ RETURN 
PRINT" SR RIRRFS NIEREN I" RETURN 
PRINT" TPITERTRERBERD PIEITBRERTT" RETURN 
nn ae I" : RETURN 


RETURN 
"RETURN 
=" RETURN 
R { "RETURN 
DRINTISTOERERERRRDRHRAEE MEER I" : RETURN 
I TERROR YRTRTREREST" RETURN 
IBESRBRBRABEINT" RETURN 
PERRRRSERET "RETURN 
'BERBRERERESO |" RETURN 
«":RETLURM 
"RETURN 
"RETURN 
SORLS=1ATHENHFRINT" SIMTBBBRRBES | NIT." RETURN 
THEHFRINT" SPRTORBRRREE ALRERERIOT" RETURN 
THEHFRIMT" SONDERBR RR BERESO RIKIINERRZ 1" :RETLIRN 
LTHEHFRINT" SITETER ERBE ERTINEREAN 1" RETURN 
OR 2THENPRINT" FPITRBRRERREIH NITTRRRSN 1" RETURN 
THENPR INT" FROIRRBMBRFSC NICBEr ":RETLIRN 
S=1ATHENFRINT" SOIRDR BOB BER Be BIEeBıBeBı Be NE | IKT =" : RETURN 
° THENPR INT" TRIDBRRBERERRER RE ERST" RETLIRN 
?THENPRINT 1" FERENTECR BB RB DB Ba Ba BP BER ES TNEHERZ 1" RETURN 
1 ITHENPRINT" SRTARERERERBRRRRRS RISIKO 1" RETURN 
LOTHENER INT" TTOERRRERRABRRRFE MMHERO l" :RETURN 
THENPRINT"IÜTMRRERRBBBERAEES MOTERRESM" :RETURN 
THENPRINT SCRTNTRTUTne Be Br Er BB" :RETLIRN 
THENPRINT "SIE PERBSREBEER "RETURN 
EHER INT" SDONKTeTaTE BER" RETURN 
INER INTORENTRPERREBRERER "RETURN 
PEREEEARBESN I" RETURN 
PRERRREARFAN" : RETURN 





COMMODORE VC-20 


 LARNDFEEK (4264 )=1 LAANDPEEK(4216)=1 1ATHENGNTO1839 
LL2ANDFEEK(4176)=112ANDFEEK(4216)=112THENGNTN1949 








IFPEEK(42S6)= 


Irss DORIDPEEKCA2LS)=LLRTNENIEE 





IFPEEKLADS SARNDPEEK(4264) 


anTniEgen 


IFFEEKLA2IE)=11ATHEN1B2Q 


Der | 
>} 


1a na ma na 





=SARNDPEEK(4216)= 1 LATHENIS7A 
IFPEEKLALESISASANDPEEKLALESI=1 LORNDPEEK(4176)=49ANDFEEK(4177)=119THENI6?O 





A IFFEEKL4216)=49ANDPEEK(4217)=119THEN1SSA 

3 IFPEEK(4256)=1 1BANDPEEK(4264)=1 1ARNDFEEK(4217)=116THENGNTO1999 

A IFPEEKL416B)=B7ANDPEEKC4163)=1LFANDPEEKC4176)=S7ANDPEEK (4177) =119THEN1 738 
A IFPEEKLALKSI=SSTANDPEEKL4169)=11OANDPEEK(4264)=87ANDPEEK (4265) =119THEN175® 
1722 IFPEEKL4256)=S7ANDPEEK(4257)=119ANDPEEK(4264)=37ANDPEEK(4265)=119THEN1 750 


1722 IFPEEKL42SEI=R7ANDPEEK(4287)=1 1SANDPEEK(4176)=B7ANDPEEK(4177)=119THENI?S® 


ı7an LNTN177R 
1752 IFFEEKL4216)=11ATHEN1SAA 


1rEA IFFEEK(421E)=S7ANDPEEK(42173=119THEN1FAR 
IF7a IFFEEKL4256)=B7ANDPEEK (42 57)=11SANDPEEK(4264)=87ANDPEEK( 4265) =1 18THEN179@ 


sa GOTD121@ 
729 IFPEEK(4215)=11ATHEN1919 
san 


1 IFPEEKt4216)=11ATHEN192@ 
} FORF=@TO7aR: NEXT: RETURN 








en 
ı85a GNTO3S12 






Geisterschloß 


ein Grusical für VC-20 o. Erweiterung 


Das Spiel "Geisterschloß” besteht aus insgesamt 2 
Programmteilen. Der erste enthält die Anleitung und 
definiert die Zeichen; der zweite ist das eigentliche 
Spiel, dessen Ziel es ist, den Sarg eines Vampirs im 
Burginneren zu zerstören. Dabei wird der Spieler von 
zwei Geistern verfolgt, die man jedoch für einige Zeit 
stoppen kann, indem man sie mit Knoblauch bewirft. 
Knoblauch ist überhaupt sehr wichtig in diesem Spiel, 
denn es öffnet durch mehrmaliges Bewerfen sogar 
Türen. 

Die Steuerung erfolgt mittels Joystick. 





‚58 Homecomputer 





an IFPEEKtA21S)=S7ANDPEEK(4217)=11STHEN191A 


August 1983 


GEISTERSCHLON 


FEFFER 





EIATREe,E, 
DRTRa,E 0 





3,171,213,171,213,255 
2,0 
DATAZE r 2,25,24,.45,0 
EATAIE,126,.84,596,15,.58,40,108 
DATAIE,56,.20,56,16,.58,72,.108 
DATAIE,56,18,82,1€ 





&,18,596,24,196,40,105 
‚18,598,20,.104.368,108 
S2,165,.120,165,5985,38 
DATRIE,124,.20,598,18,58, 
Fi te] :FÜKESZ ‚23 :FOKESS,SS 
FÜRA=SFERA-21ESTO7E79HRERDE :FOKER,E:NEXT 
= FEINT"I" 
PRINT" eieHEM LOAD" > 
DATAIS,13, 2,213,13 
FÜRA=E21 TO63E :READB :FOKER,E:NEXT :FOKE19S,7 
END 
FRINTUS 
FRINI"SFIELREGELN: 
FREINT"SEIEL DES SPIELES IST ES , DEN SARG DES YAMFIR"S IM BURINNEREN Z 


FRINT" ZERSTOEREN" 

FRINT"SOABEI WIRD MAN vON ZWEI GEISTERN VERFOLGT, DIE MAN JEDOCH FUER 
EINIGE" 
535 PRINT" ZEIT STOPPEN KANN „INDEM MAN SIE"; 
S4a PRINT" MIT KNOBLAUCH BEWIRFT " 
558 PRINT"SOIE TUEREN ÖFFNEN SICH ‚NACHDEM MAN MEHRERE MALE MIT 
OBLAUCH" z 
56H PRINT" BEWORFEN HAT" 

PRINTTAIEKIS ">" 

FOKE192,8:WAIT13S.1 

PRINTUSE 

PRINT" STEUERUNG 2 

PRINT"SBIIE STEUERUNG ERFOLGT MIT DEM JOYSTICK" 

PRINT" NM N NO 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

PRINT" 

PRINT" 

PRINT" Su Ss 50 

PRINT" IN" TABK199 ">>" :FOKE198.0:MAIT198,1:60T0200 
READY. 











3 FOKE® 
10 
15 
zu 
&+B .A:NEXT 
59,.60,61,.62.63 
I :HERT 


:FOKE13S,A:WAITI3S,1:GETAF EL=YALCAEI SIFLSLIORLPSTHENGEI 
1a 
role: 
GOSUEI EN 
OTOrTEE 
2:G0TO4EE 
To 
OHMMSOTOFA,FS,ES 











= 














= :POKEZS+4844+A,53 s FOKERA+CE 
ZEN LLERDERRBEREN De Se LIE 


PR IHT Bee Sg 
FEINT'IRBEBFSER SR 
FEINT'IERRBFSRRH- RER MER" 
FEINT BREIT ERS" 


PRINT" BR 
PRINT "BRD 


55155555" 


1>#65+3> :POKEK ,A+17& 


THEN>EG 
+ sIFA=1 
+# > aIFA=1 


FOKEGEG? 
FORA 


:FOKEGE-1,0 
NHT"S2 YOU WERE CATCHED 


:FOKEK 


ZERHERB ERRES RES" 


152) :FOKES71S4 


22,4 :G0TL 


:HE#T :GOTOES 


rz2&,8:PÜOKEGE-1,A:FOKER,.GZCG3 sFOKEP+3 


873 ,8:POKEGE ,‚A:PÜKEK ‚44 :POKE 


FRINT"SEHIG a 
PRINT" agelalapıl YOl MAHT TO PLAY 
oToge 
"IHT "III"  :G0OT01505 


AGAIN 


SreH> 7"sFOKE13S,O:MAITIPE,1:G 














DATA- 
Generator 


Dieses Programm überträgt gewünshte Speicherberei- 
che in DATA-Zeilen. Nützlich ist es z. B. Maschinen- 
unterprogramme in einem Basicprogramm abzulegen, 
um sie nach Programmstart in den Speicher laden zu 
können. 


REM 

INFUT"ERZ Hr. 
IHFLUT"ESCHRI 
IHPLUT"BACRE! 

FEIHT "E": 

FÜR IJ=1i TO! 

FEINHT Z3" E 

FÜR I=i1 Tü 

FEIHT STRFXFEERCK:: 
HE=T I 

FEIHT STREÜFEERIEN: 


5] 
is) 
3) 
15) 
Eie) 
SE 
[E] 
[5] 
15) 
E 
15] 
5) 


Roadrunner 


für den Sharp MZ 80 


FEINT "E Fr 
FREIHT " „ 
FREIHT " 

FREIHT "GEINE AUFGABE IM DI 
FEIHT "EIHE WIELEBEFAHREHE STR 
FEIHT "UCH 3 MIMUTEH SOFT 
FREIHT "LEBE FR 
FRIHT 
FEIHT 
FREIHT 
FREIHT 
FEIHT 
LURSOR 
TEMPO 4 

bIM AEi 

LATA 2:40,42, 40: 
Für I=f To 13 H 
RFESTÜORE 

[ee > 


ohnD 


Ba 


j Tı 
a a a a an an 


“ANHS 
"BEu, D Em 


Share mamma en 


UHE HUH UTEL 
FREINT "#3": 


a a a 





Nach den nötigen Eingaben wird das Maschinenpro- 
gramm in Blöcken von jeweils 20 DATA-Zeilen zu je 10 
Bytes ausgegeben. Es sind diese Zeilen dann nur noch 
als normale Basic-Zeilen wegzuspeichern. 


Mit GOTO 64040 wird der folgende Mer-Block Data- 
zeilen kreiert. 


Ein kleines Fahrzeug soll eine vielbefahrene Straße so 
oft wie möglich überqueren. Wenn man von mit einem 
Auto kollidiert, dann muß man von vorne anfangen. 
Das Spiel ist eine Art Motorfrogger. Viel Spaß! 


EUHHE FRE" 


E INNERHALB 
LIE MOEGLICH ZU 


"WIRST DU UCN EINEM AUTO ERFA 
T DU VON VORN ANFANGEN. [ 


50 15 STICK AUSWEIC Frag 2 
SLUECHE 
: USRCHEDES: 





GOSUE 3 

HE=T P 

For I=i TO 4a 

b&i4, Ir=b#l4, I+"E" 
HE=T I 


gzgzr "men 


FE 

3 To Ss 
EI 

Jl= INTe EHC1 


JZ=INTCEHE1 
J3=IHTEENEG1 


a J4=IHTERHEE1 


IS=IHTERHOEC1 
J&E=IHTERHD 1 
Jr=IHNTEREHE 1 
JS=IHTERHEE 135 
TIs="Gacaaa" 3 Pü=d 


a FRINT "E TIME =: "sTI#3 TABXZS>H "FOINTE 


a FRIHT ' 
2a FREIHT mamma 


FÜR I=1 TO 8: FRIHT ® HE=ST I 


a PRINT " 


FÜR I=1 TO © : FRINT : NEXT I 
FRINT " 
FRINT " 


a AlssSdidr = CAR=ZEl 
sa Ail=Al 


FÜRE AU: CHAR 


ı Es] 
2a G=41 


EPO 


FEIHT "DO TIME =: ":TI#5 TARRESSS "FOINTS 8" 


FOKE$11A2,38 : USRi$O044) 


3 EURSOR 2:4 


FEINT D&i1: I DEZ, TE DE, JE Eid, I4b3 
JI=SJ1+E B THEH IT1=E 
! B =5 THEH TZ=E 
J3=5 THEH J2=E 
J IF Td=5 THEH I4=E 
FRINT b&$3; 1323 DEi6; Ts DE, IPsbEiH, T253 
S+E : IF IS=6 THEN I3= 
Te Je1E ı IF J&ö=5 THEN Jö=E 
I? ı IF Tr’=5 THENH IF=E 
IF I2=5 THEN I2= 
# SöTo 1arE 


FRINT b#i1: Il DEE, TE Hi, TE DEl4. T48 
Ja=Jz+E : IF Jz=G THEN JzZ=E 
J3=JI3+E : IF J3=6 THEH J3=E 
J4=I4+E : IF Id=6G THEH T4=E 
FEIHT D#{5, TS; Dfie: Tess hi, Is Did, I803 


INszan" 





5 THEH JS= 
IF 2. THEH J&=E 
IF IF=5 THEH Ir=E 
; 5SoTo 1878 
EUR of 5:4 
an [EEE Be 5 


a a 


a a N En 


az 
Zt 


7: IrIsbEiH 


PRINT TI$ 
' THEN 115 


me mm nee me al 


RUM Se 


m 
b 


i 34 ALiAF+1E 
IF FEERCAUD=124 THEN Fü= FO+1 5 MUSIC "CDEFGH+E" : G0TO Ss 
FÜEE Al;8 
FÜHE Al,CHR 
Ail=All 
oH 50 50T0 328% 
i Ir E24 
- "SEgE ECIE ZEIT IST LEIBER UM," 
3 CbEFGAE" 
"EREDU "HA T LIE STEASSE"SFOS" MAL LEBERAUERT." 
"BEBWILLST DU ES HÖCH EINMAL VERSUCHEN 7": 
3) 3 GET HE 
THEH RUM 558 
ZU WIEL WMEREEHR: WAS 7" 


ir LEN: Bi$%C ZE THEN ZEEEE 
1: IH" ggogggane 


Er 


ü FOR I= n To 4a 
IF Fi=4 THEH b&{f»4i-I2=MICFÜE1#, 41-1, 4a) HMIDEEBZE, 41-1, 40 
A IF F>4 THEH Di, I>=MIDEiE1E, 41-1: de HNIDEIEZE, 41-1: dl 
A HE=T I 
3 RETLFH 





XXXRK APPLE Il 
Verkaufe Spitzen-Software 
Spiele Adventures Utilities 
Tel 05271 8343 ab 19 Uhr 
AXKXX APPLE Il 


XRXXX 
zB CPM 


KXXRXK 





VC-20! Die besten Spiele für GV! 
Info 80 pf evt. Liste an T.Langens 
Schevenhofer Weg 44 D-56 Wuppertal 





ORIC-T@ORIC-1@ORIC-I@ 
Originale Prog. Aus England !@ 
ua.100% Machine Code Software® 
Centiped, Hopper & v.mehr@ 
jede Kassette DM 39,- m ® 
Freiumschlag + DM 1 (Marke) @ 
A.Quinn 'Windmill Software, ® 
Pf.1563,3170 Gifhorn@ 





Spectrum@Spectrum@Spectrum @ 
Originale Progr. aus England !@ 
ua, 100% Machine Code Software® 
zb. Maze Death Race, Ghost Hunt@ 
Jede Cassette DM 29- 1 @ 
® Freiumschlag + DM 1 (Marke)@ 
® A.Quinn 'Windmill Software @ 
® PF-1563,3170 Gifhorn @ 





ZX81 Test-und Trainingsprogramm 
für ASW (Außersinnliche Wahrneh- 
mung). Benutzen Sie Ihren Computer 
zum Testen und Entwicklen 
Ihrer Fähigkeit vorauszuahnen. 
Cassette DM 35,-. Vorauszahlung 
Kto.Nr. 262901-309 Postscheckamt 
Hannover o. per Nachnahme zzgl. 
NN-Gebühren. PSI-Work. Klaus 
Reisewitz, Bachstr. 87, 4930 Detmold 





VC-20 Basic-Compiler nur DM 59,- 
Info 80 Pf, Klaus Raczek, Wick- 
rathbergerstr. 12, 5140 Erkelenz 





VC-20-GV:25 Programme nur DM 20,- 
Tolle Spiele! Pro Stück nur 80 Pf, 
Vorauskasse oder NN. Best. an: 
JM Gebhardt, PF42, 8581 Ekersdorf 





TI 99/4A Software - Service 
Superprogramme a. aller Welt 
Programmkassette (Info geg. Rückp.) 
99’Service, An der Weide 21, 
3160 Lehrte, Tel: 05132/54314 





CBM 64 Geist statt Ufos 
Info 80 Pf. in Briefmarken von A. 
Gröbe, Merckstr. 11, 61 Darmstadt 





CBM Basic Kassetten M.Mind.40 PR 
Ogr. Spiele, Assembler, Datei, Biorh 
NUR 40 DM 





500 Spiele für zusammen nur 200DM 
können wir nicht anbieten, weil 
wir unsere Programme noch immer 
selbst schreiben, wir Trottel, und 
nicht einfach irgendwo abkupfern 
‚was wir aber auch ganz ehrlich 
gesagt, nicht nett finden | I | 
Also, falls euch euerTEXAStrotz 
reichlich Futter etwas blaß vor- 
kommt, dann liegt es vielleicht 
daran, dass ihm Einheitskost nicht 
so gut bekommt!? Gönnt ihm ruhig 
mal was richtig gutes. Er wird 
sich mit fesselinden Spielen bei 
euch bedanken. Für DM 1,30 in 
Briefmarken, anHOMESOFT, Bahn- 
hofstr. 35, 3060 Stadthagen, 
könnt ihr schon bald erfahren, 
warum euerm TI 99/4A unser Menue 
so gut bekommt und ihr deshalb 
mehr Spass an ihm haben werdet. 





eeo_e VC-20/6BM 64 @e00®@ 
Super-Software@Neue Überr. Text- 
verarb.@ Flex.Hardcopy-Routine B 
Hires-Grafik @ Grafikprgm. @ Äußerst 

umfangr. Programmierhilfen @Super- 
spiele@Die meisten Programme in 
Maschinensprache mit ausführlichen 
Anleitungen@Info gegen 1,10 DM von 
J.Jeismann, Crispinst. 4, 4600 
Dortmund 50 





RIESEN-ANGEBOT an Programmen und 
Modulen für TI 99/4A. Info gegen 
DM 0,50 WC Riegert, Schloss- 
hofst. 5, 7324 Rechberghausen 





uns Software 
Artic, 

Campell,Viking, 
Melbourne House, 
Impact,A+F, 


Sie bekommen bei 
folgender Hersteller: 
AGF, Bug-Byte, 
PSS, Imagine, 
Hewson Consultants, 
Spectrum Games, dk'tronics für 
ZX Spectrum, ZX81, VC20, CBM64, 
Dragon und BBC. Wer in Deutsch- 
land ist günstige? Auch Hard- 
ware zB. Lichtgriffel, RAM- 
erweiterung, Joysticks usw..Ka- 
talog gegen DM 1,80 in  Briefm. 
Th. Wagner, Softwareversand, 
Postfach 112243R, 8900 Augsburg 





Faszination des 
Spiele für Sinclair 
EMM Software präsentiert 
Tempest (48K) noch DM 45,- 
Centipedes (48K) nur DM 39, 
Startrek (48K) nur DM 22, 
Viele weitere Spiele auch 16 K 
sind erhältlich. Bestellung und/ 
oder Info (geg. Freiumschlag) bei 
Boris Baginski & Peter Stieda 
Sponeckstr. 8, 8000 München 60 
© auch ZX-81 Spiele erhältlich @ 


Spielens 
ZX Spectrum 





VC20 Bildschirm vergrößern auf 
25x30=750 Punkte. Ideal für Grafik 
Softw. und Demo-Action-Spiel DM 25,- 
Info DM 0,80 Video-Games usw. Ass. 
Genech,Derner Str. 363,46 Dortmund 14 





@® VC20 Assembler Software @@ 
Viele Gv Spiele ab 1,50 DM, über 
40 Modulprogramme, einige 16 KB 
Adventure und vieles mehr. Info 
gegen 80 Pf. oder Tauschliste bei 
M&T Wisniewski, Wilhelmstr. 33, 
7505 Ettingen Tel: 07243/16892 








TI 99/4A SUPERSPIELE in EX-BASIC 
Action, Spannung, Spass. Top Grafik 
DIE Spitzensoftware! Ab DM 5,- 
INFO gg. 80 Pfg. Briefm, B.Walter 
Pfortengartenweg 57, 6230 Ffm.-80 
VC-20 Programme Tausch oder Kauf 
gegen Kostenbeteiligung (Shamus 
8K Modulprog. 5,60) v. Albusheit & 
Wolf Sotware-Interessengemeinschaft; 
5216 Mdk-Rheidt, Am Abtsberg 20 





VCc20 
verkaufen. Info 
R.Bärwolf, Postfach 
4650 


Softwaresammlung zu 
anfordern. 
100321, 
Gelsenkirchen 





VC-20 Software zB. 
TEXAS Assembler u. Lehr- 
system 278,- 
o Exbasic Level Il 368,- 
.. Info von: Peter Hemmer 
Mühlweg 54, 6730 Neustadt 19 

Tel: 06321-31992 
v..oessoe,—., ,;;—..suu.s 





Software für VC20/64 und ZX81 
Finanzbuchhaltung,G+V und Bilanz 
16 - 64 K auf Kassette DM 30,- oder 
auf Diskette für nur DM 38,- porto- 
frei: bei Vorauskasse (Scheck) NN + 4,50 
Feddermann, Bundesstr. 101, 2 Hbg. 13 


TI 99/4A Soft 
100 Prog. ab DM 2, 


an Quint, Lessingstr. 24, 


8411 


Lappersdorf 





Ihr Hobby als lukurativer Nebenverdienst 
Gratisinfo geg. RP Quint, Lessingstr. 24 


8411 Lappersdorf 


SINCLAIR 
SOFTWARE - POWER 
Fordern Sie gegen 
DM 0,80 in Briefmarken 
unser ausführliches INFO 





an. Wir haben alles, was 
Sie schon immer suchten! 
LENCER - Software 
Wilh.-Schröder Str. 18 
4130 MOERS 1 


VC-20-Software ... 
© Info gegen 99 PF bei J.Güttel @ 
©® Kölner Str. 99, 5650 Solingen @@ 





ZX 81 Prg (MO)! Info geg. Rückporto; 
M. Stammer, Seelhuve 24, 4670 Lünen 


Professionelle Software für Hand 
-Held-Computer (EPSON, HP, SHARP) 
gesucht. Micro-Computer GmbH, 
Kralstr. 17d, 4018 Langenfeld 








HALLO-COPUTER-FANS = 
=Höchstpreise f. Münzen, Brief 
=etc. erzielt man durch Auktioı 
=WARUM nicht auch f. Computer??= 
=SIE wollen Höchstpreise erzi 
=Ien?? Einlieferungsbedingungen= 

COMPUTER-AUKTION geg. 3,-DM= 
lückporto. ERWÜNSCHT: alles u 
=den COMPUTER, Literatur, Zubehör= 
=Schütze,Sonenweg 43.4190 Kleve= 





@®Soft u. Hardware für VC-20@@ 
@8K Speichererw. m. Sch. 

@16K Speichererw. m. Sch. 
@Modulbox Fertig mont. 

@Quick Save Stechm. 
@Maschinensprachm. Steck. 
@Programmierhilfem. 

© Grafikmodul 

@über 100 Prg. Ino gegen 
@1,30 i.Briefm. von 

@N. Flesch‚Scheideweg 636 
©4650 Gelsenkirchen-Buer 
@®Soft u. Hardware für VC-20@@ 


ZX-81 

+Rekorder 
über 100 

Alle Geräte 
verpackt und in 1A-Zustand 
für DM 400,-- zu haben bei 
H.  Jordans, 5000 Köln 80, 
Tel. 623807 ab 17 Uhr 





+Drucker+6K-Erweiterung 
+Bücher für 
‚Superprogramme. 
original 





VC-20  +8K 
Karebn, Tel: 


400,- DM 
06039/42134 





Erw. auf 48K f. ZX Spectrum 89,- DM 
+ Porto und NN, Postkarte an H. Meyer 
Rahserstr. 58, 4060 Viersen 1 





Ver. ATARI 400 +Rec.+ 2ROM +Joy. 
+Lit. Alles DM 1040,- Einzelverkauf 
möglich F. Vetter, Gurtenstr. 17, 
7067 Urbach Angebote schriftlich 





APPLE Interfaces-Karten 
Kompatibler Computer 
zm günstigen Preis. 
ten 5 Zoll 10 ST. 
liste anfordern bei 

Postfach 149, 6101 


sowie 
und Drucker 
BASF-Disket- 
65,-DM Preis- 
Emig-Elektronik 
Roßdorf 1 





Verkaufe TI 99/41 mit Joysticks, 
3 Softwaremodule und seperater Software. 
Info: Th. Hirte 
3005 Hemmingen 4, Im Bergfeld 11 
(05101) 3114 





2X-81/64K/Mech. Tastatur Bücher + 
Prog. (Schach.Toolkit-Mcoder) VHB 
DM 750.-/SC/MP-Compu. DM 200,- 
(Selbstbau-Plat.) 06233/1865 ab 21 Uhr 











RR 


ZX81+16K RAM+Dtsch. Handbuch - VC20/VC64 Kassetteninterface - 


Neuzustand DM 250,-- Tel: 02056-68369 1. 998,-- 


jeder Recorder o. Tonbandgerät 


2X-81+16K-RAM-+Software+Bücher zu anschließbar. Fertiggerät im Geh 
verk. VH 270,- Tel: 02041-21630 | mit Steck. 48,-DM auch für CBM 


Rund um den VC-20 U-Portst. 9,80D’M Griff 3,-DM NN 
@'SAK BAM m. Göhäing 248,-'@ Portofrei Fa. BOI Hoye 1 /2225 
@ 40/80 Z Karte 248, 
© Busplatine m. 6 Pl. 198,-- @ Schafstedt Tel 04805/380 
@ Info von: Peter Hemmen ® 

Mühlweg 54,630 Neustadt 19 @ 
.v.ss„..—.—0.0.s... 





2. 832,-- 


3. 759,-- 





EUROCON II, voll APPLE Kompatibel, 
48 KB, Tastatur mit Zehnerblock, 
Groß- und Kleinschreibung 


APPLE - Kompatibles Motherboard 
unbestückt 
bestückt u. ge 


Laufwerk Shugart SA-390 
Gehäuse zu Pos. 6 .. 





Controller DOS 3.3 

16 KB - Erweiterungsk 

2-80 Karte 

80 - Zeichen m. Softswit 
Printerkarte, Grafikausdruck, 
für STAR, EPSON, C.ITOH, NEC 
128 KB Erweiterung mit DOS 3.3, 
CP/M + PASCAL Software 


ZX81:16K 85,- 64K 185,-(incl.Gehäuse, | 2X Printer oa. sucht 08761/2451 
kein Bausatz), IK Schach 15,- 
SPECTRUM:32K 95,-, Tastatur 150,-, 
Centronic-Int. 120,-, Schach 30,- 
MD Wandler 100,- Katalog SP 3,- 
VC-20:Frogger 25,-,Krazy Kong 25,-, 
Galaxians 25- .. Liste 1- 
VC-64:Frogger 28,-,‚Krazy Kong 28,- 

Scramble 28;, Liste 1 BIMAHeister- | arts en a 
weg 6, 2382 Kropp, 04624/8728 Moritzstr. 70, 4300 Essen 1 





@DRUCKER f. VC-20 06173/62403@ 





Suche für Acorn Atom Hard-u. Soft- 
ware R. Neikes Tel: 02036-63063 Monitor ZENITH 12°° grün 
Monitor SANYO 12° grün entspieg. 
Moni torkabel 


Matrixdrucker STAR DP-510 
Matrixdrucker C.ITOH 8510 
Matrixdrucker SEIKOSHA 


EUROCON II Komplettset 
bestehend aus: 
Pos. 4, 6, 7, 8, 14, 16 DM 2750,-- 





a a a a a a a a a ee ee ee ee 


n 
Ss 


er 2 VERBATIM Disketten SS für 

eo HALLO-COMPUTER-FANS eo Tausche ZX Spectrum-Software, vor. APPLE - Anwender . 10 Stk 59,-- 

f zugsweise Spiele Tel: 0231/485546 WARE 
@®Höchstpreise f. Münzen, Briefm.@ * Alle Preis inkl. MWST, auschl. Porto und Verpackung 
@etc.erzielt man durch Auktion.@ * Versand per Nachnahme oder Vorauskasse auf Konto: 
@WARUM nicht auch f. Computer”? @ * 2 855 987 bei Dresdner Bank Geilenkirchen, BLZ 390 800 05 
@SIE wolen; HÄCHSTRREIGE ee BREI 

wollen erzie- 


* 
@len?? inlieferungsbedingungen@ Hannover. Suche ZX Spectrum User- 


BEE 


SCHMITZ DATENTECHNIK 
Alte Poststraße 16, Postfach 1288 


@Rückporto. ERWÜNSCHT: Alles um@ Gründung interessiert sind, Bitte 
@den COMPUTER, Literatur, Zubehör@ Karte an: M. Hoetker, Heimatweg 26, 
@Schütze,Sonnenweg 43,4190 Kleve@ 3000 Hannover 21 
.....0.”".—.,..,., 


Auftrag für Gelegenheitsanzeigen in Homecomputer 


An Homecomputer Name und Adresse 
Gartenstraße 47 
3440 Eschwege 


bi * 
©. COMPUTER-AUKTION geg. DM 3,--@ Club oder Leute, die an dessen : 5130 Geilenkirchen bi 
* Tel. 02451/68587 * 
” “ 


RR 




















Unterschrift Ich zahle sofort nach Rechnungserhalt. 


Unter der Rubrik „Kleinanzei- 

gen“ veröffentlichen wir Ge- Ich wünsche folgenden Text zu veröffentlichen: 

legenheitsanzeigen für Ver- 

kaufsangebote, Kauf- und III ILILLI ai Ba | 
Tauschgesuche, Kontaktauf- 1 1 | 


| 
nahme bzw. Erfahrungsaus- | Il I] 
tausch usw. 
lern f ads L1 a KL KO | 
Preise für „Kleinanzeigen“: 
Private Gelegenheitsanzeige | | 
je Druckzeile 5,— DM inkl. | 


: n | 
MwSt. Chiffregebühr je Anzei- 
ge 10,- DM. III | 














| 
i 


























| 
Gewerbliche Gelegenheitsan- 1 | 
zeige je Druckzeile 7,—DM inkl. | 
MwSt. (dürfen nicht unter Chif- = III 11 
fre erscheinen). | | Bi 


Zutreffendes ankreuzen 
suche suche Hardware Tausch Versch 





























































































































biete an biete an Hardware Kontakte Chiffre 














Programme auf Diskette 
und Kassette 


Nicht jeder Leser hat die 
Zeit und die Geduld, alle 
Programme, die er gerne 
hätte, in sein Gerät einzu- 
tasten. 

Wir haben uns deshalb 
überlegt, daß es das ein- 
fachste ist, wenn wir die 
Programme, die wir ohne- 
hin auf Diskette oder Kas- 
sette vorliegen haben, die- 
sem Leserkreis zum Selbst- 
kostenpreis (Datenträger, 
Kopierzeitaufwand, Porto, 
Verpackung und Mehr- 
wertsteuer) anbieten. 

Es genügt jeweils die An- 
gabe eines Stichwortes, z. 
B.: VC-20-Disk Heft 5 oder 
Sinclair-Kassette Heft 5. 


Bestellungen Inland: 


Gegen Einsendung eines 
Schecks oder Vorauszah- 


lung auf unser Konto bei 
der 

Kreissparkasse Eschwege, 
Bankleitzahl 52250030 
Nummer 4522934 senden 
wir Ihnen die gewünschten 
Programme schnellstmög- 
lich zu. 


Bestellungen Ausland: 


Nur Vorauskasse, Schein 
(Kassette 10,- DM, Disket- 
te 20,- DM). Keine 
Schecks oder Überweisun- 
gen! 


Lieferung noch nicht 
erhalten? 


Bei Überweisung aufunser 
Konto kann es bis zu 2 Wo- 
chen dauern, bis wir Ihre 
Bestellung in Händen ha- 
ben. 

Oft passiert es, daß auf der 
Überweisungsdurchschrift 
weder Name, noch Ort, 








noch Art der Bestellung zu 
erkennen sind. Schreiben 
Sie uns! (Anrufe kosten 
viel Geld und bringen, weil 
dann Schriftvergleiche 
nicht möglich sind, kein 
Ergebnis!) 


Wenn es bei uns besonders 
hektisch zugeht, dann 
kann es schon mal passie- 
ren, daß es mit der Liefe- 
rung etwas länger dauert. 
Vergessen Sie bitte nicht: 
Der Kassettenservice ist 
ein zusätzlicher Service 
von uns, der Ihnen, dem 
Leser, Tipparbeiten erspa- 
ren soll (Sie kennen den 
Versuch einer anderen 
Zeitschrift, dieses per 
Lichtgriffel zu ermögli- 
chen). Wir tun unser mög- 
lichstes. Aber Pannen sind 
nie ausgeschlossen. 

Bitte haben Sie in solchen 
Fällen Verständnis. 


Kassetten und Disketten, die bisher lieferbar sind 


aus Heft 4/83 


K = Kassette 

D = Diskette 
VC-64 
Assembler 
Kalaha 
Maze-Challenger 


K 8,- DM 


CBM (Pet 3000) K 8,- DM 
Maze-Challenger 
Kalaha 


ZX-81 

Brüche pauken 
Life 

Survive 
Labyrinth 


K 8,- DM 


Apple II 
Suchrätsel 
Disk-Schutz 
Oktopus 
Labyrinth 


D 15,- DM 


VC-20 K 8,- DM 
D 15,- DM 
Labyrinth + 8K 
Spukhaus +16K 


Assembler 


TI 99/4 
Asteroiden 


K5,- DM 








aus Heft 5/83 


TI-99/4A 
Panzerkrieg 
TI-Ufo 
Killersatellit 
Chiffrier/dechiffrier-PGM 
Rangliste 
VC-20 


K 10,- DM 


K 14,- DM 
D 20,- DM 
Invaders (3PGME) +16K 
Editor 
Assembler (neu) 
Labyrinth (3K) 
Car-Crash +8K 
ZX-81 

Ritter 

Missile ZX-Command 


VC-64 K12,- DM 
Editor D 19,- DM 


Assembler (neu) 
Mondlandung 

Wurm 

Geisterjäger 
VC-64-Sprite-Generator 
Apple II D 12,- DM 
Diskschutz 

Trollhöhlen 


Pet-Bytes 
Mastermind 1 
Mastermind 2 


K 8,- DM 


K 8,- DM 





aus Heft 6/83 


VC-20 K 10,- DM 
D 17,- DM 
Bomber +3K 

Old Shurehand +3K 

Logo +3K 

Hürdenlauf +3K 
Adressdatei +8K 


VC-64 K8,- DM 


D 15,- 
Schluckermaxi 


Synthesizer 
Goldfieber 


Apple II 
Starwars 
Zentrifugalkraft 
Texteditor 


D 15,- DM 


ZX Spectrum 
Frogger 


ZX-81 
Data 
Renumber 


CBM 3016 
Galactica 


TI-99 
Space-Defence 
Street Race 
Breakpoint 


K 5,- DM 


K7,- DM 


K5,- DM 


K 8,- DM 





aus Heft 7/83 


VC-20 

Grid Gummer 
Oil Panic 

VC Pinball 
Highway 


ZX-81 
Apfelbaum 
ZX ärgere dich nicht 
Hausnummern 


K 8,- DM 


CBM 3000 K 10,- DM 
Adventure Castle 
Börsenspiel 

Station Defender 


Apple II 
31° 


D 15,- DM 


TI-99 
Steckerspiel 


K 5,- DM 


ZX Spectrum K 8,- DM 


Mampfmann 


aus Heft 8/83 


TRS-80 
Grafik-PGM 
Pferderennen 


K 8,-DM 


C 64 
Energie 
Telefon/Adress-Datei 
Charaktergenerator 
Grips 


K 10,-DM 


TI-99/4A K 10,-DM 
Der Pilzwurm 
Frogpath 
Flugabwehrgeschütz 
Monster Hunt 


Apple II 
Imbiß-Bude 
Carace 


D 16,-DM 


ZX-81 
Bundesliga 
Nimm 


ZX-Spectrum 
Spectraxians 
Kreisstatistik 


VC-20 
Helikopter 
Crown Jubilee 
Geisterschloß 


Sharp MZ-80 
Roadrunner 
Data Generator 


K 8,-DM 





OÖ— 
WICOSOFT 


präsentiert: 
Das AUTOMATA UK Ltd. Programm aus England. 


PIMANIA 


Meer BUNNY 
für ZX Spectrum 48K B 


für Dragon 32 

Das sensationelle Adventurespiel E T. A 

aus England. Bisher ist es noch eos 
niemandem gelungen, Pimanias for any ZX Spectrum 
Rätsel vollständig zu lösen. Dem I 





ersten, dem dies gelingt verspricht 
der Hersteller einen Preis von 
£6000 (z.Zt. ca. 24000.-DM). 
Pimania ist voller Musik, Cartoons 
Songs und Tänzen. 

Geschossen wird hier nicht! Das 
Spiel kann eine Woche dauern 
oder auch ein ganzes Leben. Du 
findest eine Menge ungewöhnli- 
cher, geheimnisvoller Dinge. Gut, 
daß Du das Spiel in jeder Phase sa- 
ven kannst, nachdem Du heraus- 
gefunden hast, wie! 

Die engliche Computerscene hat BUNNY plus 
PIMANIA zum besten Adventu- 
re, das jemals für Sinclair und Dra- E.T.a. 
gon Computer geschrieben wurde 
erklärt. 














für jeden ZX-Spectrum 

Zwei unkriegerische Spiele aufei- 
ner Kassette. Auch bei E.T.a. sind 
Englischkenntnisse von Vorteil. 


DM 19.50 


ECM m 


THE SELF-TEACHING 
USER-DEFINED GRAPHICS 
PROGRAM, p£us A BUILT- 
IN LIBRARY OF READY- 
MADE SYMBOLS. including 
GREEK, RUSSIAN, HEBREW, 
13 ARABIC, MATHS, CHESS, 
FR FOOTBALL, INVADERS, 
\\ PACMAN, FROGGER, AND 
HUNDREDS MORE all at 
the touch of a key, 


Auf der Cassetten-Rückseite der Original-Pimania-Song mit Clair Sinclive!? 


and The Mystery Man 
DM 39.50 


Englischkenntnisse sind notwendig! 
























BEST POSSIBLE 
TASTE 


für den ZX-81 IK 

Das Bestmögliche für den IK ZX-81! 

30 Spiele auf einer Kassette! 
Horrorscope, Bad Spells, Der Führer, Acne, 
Kick The Bucket, Horserace, Royal Flush, 
Funny Valentine, Pox, Dole, Stork, Gro- 
wing Up, Life Support, Tumbling Dice, Fai- 
ries, Find The Number, Reagan, Crystal 
Ball, PS and QS, Genesis, God, Noahs Ark, 
Plagues, Goliath, Jonah, Merry Christmas, 


m DM 19.50 














A PACK OF BRILLIANT 
AUTOMATIC DEMONSTRATION 
PROGRAMS. PERFECT FOR 
THE HOME & TRADE ALIKE 





















‚plus 
SELF-TEACHING GRAPHICS 
DESIGNING AND DRAWING 
PROGRAM, COMPLETE WITH 






Ein Paket brillanter automatischer Demoprogramme. Per- 
fekt für Heim und Geschäft. 

Plus Lehrprogramm zum Selbsterstellen von Grafiken. 
Vorhandene Zeichensätze - z.B. Griechisch, Russisch, He- 
bräisch, Arabisch, Mathe, Schach, Fußball, Invaders, Pac- 
man, Frogger, usw. - Hunderte weitere durch einfache Kom- 


mandos selbst zu erzeugen. 
DM 19.50 






































Bestellungen an: 
WICOSOFT * Nordstraße 22 * 3443 Herleshausen * Tel. 0 56 54 - 6182 


Bitte benutzen Sie Bestellkarte im Innenteil des Heftes! 
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